Delphi выход из цикла по нажатию клавиши

[Фиалка001]

Разрабатываю программу просмотра графических файлов, в частности, режим Слайд-шоу. Необходимо выйти из слайд-шоу при нажатии любой клавиши, кроме Esc. Мой код запускает режим, но не выходит из него при нажатии клавиш. Подскажите, пожалуйста, как достичь желаемого результата?

procedure TFormViewUV.SlideShowClick(Sender: TObject);
var
  fn: WideString;
  bt: Boolean;
begin
  bt:=False;
  while not bt do
    begin
      if Application.Terminated
      then
        bt:=True
      else
        begin
          fn:= FFileList.GetNext(FFileName, nfNext, FFileNextMsg and (not FFileList.Locked));
          if fn <> '' then
            LoadFile(fn, true);
          Delay(3000);
        end;
    end;
end;

[fbus]

создай глобальную переменную stop и присвой ей сразу false; потом сделай событие на нажатие кнопки escape stop:=true; а в самом цикле проверяй
if stop then exit;
надеюсь идею понял

[ByAlex]

Сделай булеву переменную и проверяй ее с помощью application.processMessages;

[phomm]

Тут можно сделать 2 решения: 1 - как уже предложили, только в коде , а то новичку можно с ходу не понять

var stop : boolean = false;
...
procedure TFormViewUV.SlideShowClick(Sender: TObject);
var
  fn: WideString;
  bt: Boolean;
begin
  bt:=False;
  while not bt do
    begin
      if Application.Terminated
      then
        bt:=True
      else
        begin
        application.processmessages;
        if stop then 
        begin
        stop := false; 
        break;
        end; 
          fn:= FFileList.GetNext(FFileName, nfNext, FFileNextMsg and (not FFileList.Locked));
          if fn <> '' then
            LoadFile(fn, true);
          Delay(3000);
        end;
    end;
end;

procedure TFormViewUV.ButtonStopClick(Sender: TObject);
begin
stop := true;
end;

и второй, через таймер :

procedure TFormViewUV.SlideShowClick(Sender: TObject);
begin
timer1.enabled := true;
end;

procedure TFormViewUV.ButtonStopClick(Sender: TObject);
begin
timer1.enabled:= false;
end;

procedure TFormViewUV.timer1Timer(Sender: TObject);
begin
// весь код вашей процедуры, кроме delay(3000), вместо него надо установить timer1.interval = 3000
end;

[Фиалка001]

Спасибо большое!