[ALexandr555]

мы ищем есть ли вкладка с Hint = UIN
и как нам сделать если мы нашли то в мемо находящийся в этой вкладке добавляем (GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg)
может так?

Код:

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

[ALexandr555]

чтото мне подсказывает что такое равно не прокатит

[lmikle]

угу, не прокатит.
подробно, где находится то Memo, куда тебе надо добавит информацию.

[ALexandr555]

у меня есть несколько вкладок в кажой 1 мемо,
для пирмера вот так

Код:

TMemo(ICQpeg.ActivePage.Controls[0]).Lines.Add

находим мемо в активной вкладке и добавляем в него, а мне нужно если найдена вкладка с Hint = UIN то мы добавляем текст в мемо который находится во вкладке в которой Hint = UIN

[Страдалецъ]

Видими вам нужно это:

Код:

Var i: Integer;
    Control: TControl;
begin
 for i := 0 to Form8.ComponentCount - 1
 do if Assigned(TControl(Form8.Components[i]).Parent)
    then begin
         Control := TControl(Form8.Components[i]);
         if (Control.Parent.Name = 'TabSheet3') and (Control.ClassType = TMemo)
         then begin
              TMemo(Control).Text := 'Привет от TabSheet3';
              Break;
              end;
    end;
end;

[ALexandr555]

не то, тут с Form, ClassType и т.д.