[ALexandr555]

Код:

Var
 i: Integer;
 Control: TControl;

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) and (Control.ClassType = TMemo)         then begin
              TMemo(Control).Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg);
             Break;
              end;

ну а так будет работать?