[DELPHI] Riavvio del computer con richiesta di conferma

[camaleonteplus]

Con questo codice riesco a riavviare il PC ma vorrei un messaggio che mi permetta di confermare il riavvio come posso modificare il codice?

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not ExitWindows(EW_RestartWindows, 0) then
  ShowMessage('Un programma rifiuta di chiudersi.');
end;