Sleep(1000): Как сделать паузу и в тоже время иметь контроль над формой?

var
      Form1: TForm1;
      IsRunning : Boolean = false;
 
procedure TForm1.StartStopBtnClick(Sender: TObject);
 
begin
    if IsRunning then
    begin
        IsRunning := false;
        StartStopBtn.Caption := 'Стоп'
        Exit;
    end;
 
    Clear.Enabled := false;
    
    StartStopBtn.Caption := 'Пуск'
    IsRunning := true;
 
    while IsRunning do
    begin
        Sleep(1000);
 
        {здесь крутится цикл}
       
        Application.ProcessMessages;
    end;
    
end;

procedure Delay(msec: Longint);
var
    start, stop: Longint;
begin
    start := GetTickCount;
    repeat
        stop := GetTickCount;
        Application.ProcessMessages;
    until (stop - start) >= msec;
end;

procedure pause(ph:Word;pm:Word;ps:Word;pms:Word);  // Пауза(ph-часы(0-23); pm-минуты(0-59); ps-секунды(0-59); pms-милисекунды(0-999)
var
  pa1,pa2:ttime;
  Hour, Min, Sec, MSec: Word;
begin
  pa1:=encodetime(ph,pm,ps,pms)+time;
  repeat
    application.processmessages;
    sleep(10);
    if (getasynckeystate(VK_ESCAPE)<>0) then Halt;  // Закрыть прогу (к примеру)
    pa2:=pa1-time;
    DecodeTime(pa2, Hour, Min, Sec, MSec);
  until (time>=pa1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  pause(0,0,1,500); // пауза в 1,5 сек и всегда можно выйти по нажатию на ESC
end;