[ALexandr555]

Код:

Var i: Integer;
begin
for i := 0 to ICQpeg.PageCount - 1
do
if ICQpeg.Pages[i].Hint = UIN then begin
 Control := ICQpeg.Pages[i].
if (Control.Parent.hint = UIN)
         then begin
              TMemo(Control).Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg);
             Break;
              end;

эмм так имеете ввиду?