Остановка цикла по нажатию клавиши

[Ispol1n]

Только начал осваивать эту задачу, может код и корявый, но не пойму, почему он не работает, мне нужно остановить процедуру start когда я захочу, вернее когда я нажму Esc , я жму Esc , но не робит. Помогите.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fl:boolean;
  procedure start(k: integer; memo1: TMemo);
  procedure stop;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
start(k,memo1);
end;

procedure start(k: integer; memo1: TMemo);
begin
fl:=false;
for k:=1 to maxint do
 begin
 memo1.Lines.add(inttostr(k));
 if fl=true then break;
 end;
end;

procedure stop;
begin
 fl:=true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then
 stop;
end;

end.

[Alex11223]

Вы заняли UI поток своим циклом, поэтому он не может вызвать обработчик нажатия.

Почитайте про потоки (TThread) и вынесите в отдельный поток.

Еще есть костыли типа Application.ProcessMessages.

[Serge_Bliznykov]

хочу чуток пояснить абсолютной верный ответ Alex11223 про "костыль".
иногда можно и его использовать.

суть состоит в том, чтобы в цикле давать Windows возможность обработать очередь сообщений (в которой и стоит сообщение о нажатой клавише).
попробуйте:

procedure start(k: integer; memo1: TMemo);
begin
fl:=false;
for k:=1 to maxint do
 begin
 memo1.Lines.add(inttostr(k));
 Application.ProcessMessages;
 if fl=true then break;
 end;
end;