>>381
フラグを使うだけだと MessageBox を表示した瞬間にダイアログ側で ESC キー押下イベントが処理されてすぐ閉じられてしまう。
MessageBox を表示する直前に Application.ProcessMessages を呼んで未処理のキーイベントをすべて消化しておくと期待通りに動作する。
Application.ProcessMessages を呼ぶと UI の全てが操作可能になるので事前に Form の Enabled を False する等しておく必要がある。

procedure TForm1.Button1Click(Sender: TObject);
var
　Flag: Boolean;
begin
　Enabled := False;
　try
　　Flag := False;
　　while True do
　　begin
　　　if GetAsyncKeyState(VK_ESCAPE) and $8000 <> 0 then
　　　begin
　　　　Application.ProcessMessages;
　　　　if not Flag then
　　　　begin
　　　　　// ESC キーが押された
　　　　　if MessageDlg('中止しますか？', mtConfirmation, mbOkCancel, 0) = mrOk then
　　　　　　Exit;
　　　　end;
　　　　Flag := True;
　　　end else
　　　　Flag := False;
　　end;
　finally
　　Enabled := True;
　end;
end;