Проблема с анимацией текста Формы

[BukTop2009]

Вот код расположенный в событии таймера, из за него прога тупит, тоесть она циклится и окно двигаешь (или любое другое событие), а оно "тормозит", как это исправить?

procedure TForm2.Timer1Timer(Sender: TObject);
const c='Главное меню';
var i:integer;
begin
Caption:=' ';
For i:=1 to length(c) do
Begin
Form2.Caption:=Form2.Caption+c[i];
sleep(10);
End;
application.processmessages;
end;
end;

[BDA]

Вот пример.

[veniside]

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Form2.Caption := Form2.Caption + c[i];
  inc(i);
  if (i > length(c)) then
    Timer1.stop();
end;

[BukTop2009]

Обалдеть! Вот Вы резкие!
Спасибо!

p.s. 1 Вариант попробывал, 100% не тупит, норм работает