[ALexandr555]

Код:

procedure TfrmMain.ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
var
i: integer;
Control: TTabSheet;
begin
for i := 0 to ICQpeg.PageCount - 1
do
if ICQpeg.Pages[i].Hint = UIN then begin
Control := TTabSheet(ICQpeg.Pages[i]);
if (Control.Parent.Hint = UIN) and (Control.ClassType = TMemo)      then begin
              TMemo(Control).Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg);
             Break;
              end

вот не работает не добавляет