Работа с динамическим таймером

[S@fer]

Добрый день.
Пишу ICQ клиента, возник вопрос
При получении сообщения иконка на вкладке начинает мигать (как в QIPe). но при получении нового сообщения первая иконка перестает мигать, а вторая начинает
Мигание засунул в таймер

procedure TF_message.TimerTimer(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to PageExtControl1.ComponentCount-1 do
  begin
    if (PageExtControl1.Components[i] is TTabExtSheet)and
       (TTabExtSheet(PageExtControl1.Components[i]).Name=Form1.imya) then
    begin
       if TTabExtSheet(PageExtControl1.Components[i]).ImageIndex=1 then
       TTabExtSheet(PageExtControl1.Components[i]).ImageIndex:=2 else
       TTabExtSheet(PageExtControl1.Components[i]).ImageIndex:=1;
    end;
  end;
end;

Таймер для каждого контакта создается свой

  F_Client.kart:=TTimer.Create(F_message);
  F_Client.kart.Name:='Timer'+F_Client.Cont_Uin;
  F_Client.kart.Interval:=500;
  F_Client.kart.Enabled:=False;
  F_Client.kart.OnTimer:=F_message.TimerTimer;

Запуск таймера по принятию нового сообщения

for t:=1 to F_message.ComponentCount-1 do
            begin
              if (TTimer(F_message.Components[t]).Name='Timer'+F_Client.Cont_Uin) then
              TTimer(F_message.Components[t]).Enabled:=True;
            end;
           Form1.imya:='Tab'+F_Client.Cont_Uin;

При получении нового сообщения переменная Form1.imya меняет свое значение, поэтому иконка на предыдущей вкладке перестает мигать, как этого можно избежать?

[Stilet]

Знаешь, наверное я бы на твоем месте в F_Client.kart.tag засунул номер вкладки, а в самом обработчике уже выбирал TabScheet по номеру в TTimer(Sender).tag

Но по-моему лучше всего при приходе сообщения создавать новый поток, в котором в цикле поставить ченить типа:

for i:=0 to 5 {мигаем пять раз} do begin
 Подсветить иконку
 sleep(100);
 выключить иконку
 sleep(100);
end;