Смена иконки в трее

[GvR]

Всем привет. Я пишу чекер для почты
У меня следующий вопрос:
Использую POP3 для проверки ящика, как сделать так, што если есть новое сообщение на ящике в трее менялась иконка (использую CoolTrayIcon) и проигрывалась мелодия?

Что для етого нужно в етот код дописать?

***********************
var
NumOfMsgs:Integer;
begin
try
Timer1.Enabled:=false;
  IdPOP31.Username:=Edit1.Text + '@mail.ru';
  IdPOP31.Password:=Edit2.Text;
  IdPOP31.Connect; 
  if IdPOP31.Connected then 
  begin
    NumOfMsgs := idpop31.CheckMessages;
       Memo1.Lines.Add('Підключення відбулось успішно!');
    Memo1.Lines.Add('У вас '+IntToStr(NumOfMsgs)+' нових повідомлень');
      end
except 
  on E:Exception do Memo1.Lines.Add('Помилка підключення '+E.Message);
end;
 IdPOP31.Disconnect;       
end;
************************

[Stilet]

http://www.delphiworld.narod.ru/_all_articles_.html
Раздел TrayBar - [17]
Или вот еще: http://www.delphiworld.narod.ru/base/trayicon_comp.html