【Delphi】如何在程式中按 Esc 鍵離開迴圈?

 
var
    i: integer;
begin
    for i:=0 to 9999999 do
    begin
        Label1.Caption := IntToStr(i) ;
        {.... 迴圈內要執行的程式 ...}
        Application.ProcessMessages;
        // 按下 ESC 鍵停止迴圈
        if GetKeyState(VK_Escape) and (128=128) then
        break;
    end;
end;