[ALexandr555]

Код:

procedure TfrmMain.ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
var
i: integer;
begin
   AddEvent('От ' + GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') принято сообщение: [' + Msg + ']');
for i := 0 to PageControl1.PageCount - 1
do if PageControl1.Pages[i].Caption = GetNickFor(StrToInt(UIN)) then
  ShowMessage('Нашли!')
else
   TTabSheet.Create(ICQpeg);
   ICQts := TTabSheet.Create(ICQpeg);
   ICQts.PageControl := ICQpeg;
   ICQts.Parent := ICQpeg;
   ICQts.Caption := GetNickFor(StrToInt(UIN));
   ICQts.PageIndex := 1;
end;

не выходит он каждый раз создает новую вкладку