Statusbar и текст

[blackstersl]

Привет всем, у меня возникла проблемка. на форме есть richedit и statysbar есть 2 колонки. В 1-ой пишется название документа, а во второй статуся печати(например когда печатаешь, то текст 'печатает...', ести останавливается то 'остановка...' ....) всё работает, толmrj вот в чём проблемка. Когда вот такой код то проходит всё слишком быстро и не видно что написано:

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 sstatusbar1.Panels[1].Text := 'Печатает...' ;
end;

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 sstatusbar1.Panels[1].Text := 'Остановка...' ;
end;

как сделать что б та где "остановка", текст показывался через определённое время например 3 сек.
Спасибо.

[Bayazet]

компонент TTimer на форму, а в обработчиках следующее:

var
  ShowOstanovka : boolean = false;  //глобальная переменная

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Timer1.Interval := 3000; //3000 милиСек
  ShowOstanovka := true;
  Timer1.Enable := true;
  sstatusbar1.Panels[1].Text := 'Остановка...' ;
end;

procedure TForm1.Timer1Timer(Sender : TObject);  //далбклик по пиктограмке таймера на форме
begin
  If ShowOstanovka then
  begin
     sstatusbar1.Panels[1].Text := '' ;
     Timer1.Enable := false;
     ShowOstanovka := false;
  end;
end;

[blackstersl]

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