Менять Caption у Label при соединении с РОР

[L11L]

Нужно сделать что бы Label менял свой Caption в течении того как программа соединяется с почтой (через IdРОР3).
Ставлю на таймер:

if Form2.Label6.Caption <> 'Connect...' then
  begin
   Form2.Label6.Caption := Form2.Label6.Caption + '.';
   Application.ProcessMessages;
  end 
 else
  begin
   Form2.Label6.Caption := 'Connect';
   Application.ProcessMessages;
  end;

Caption меняется тогда, когда соединение закончилось. Как сделать? Спасибо.

[L11L]

Тему можно закрывать. Проблема решена. Бросил на форму TIdAntifreeze.