Escape Process

// Press Esc to break out of a process

Application.ProcessMessages;

If GetKeyState(VK_Escape) and 128 = 128 then

begin

if MessageDlg('Stop process?',

  mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

  break;

end;

end;