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

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

Код:

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;