Sortir d'une boucle avec la touche ESC

procedure TForm1.Button1Click(Sender: TObject);
var
LoopAborted : boolean;
i : integer;


begin
LoopAborted := false;
i := 0;
repeat
// Your Code...
Caption := inttostr(i);
Application.ProcessMessages;

if GetKeyState(VK_Escape) and 128 = 128 then
begin
LoopAborted := true;
break;
end;

inc(i);
until i = 100000;
if LoopAborted then
ShowMessage('User has aborted the loop!');
end;