[T@nker]

как произвести выборку одного из компонентов TMemo и звдвть какие - то оссобенные свойства пробовал такой код

Код:

var
  i,j:Cardinal;
  S:ShortString;
begin
For i:=0 to Groupbox1.ControlCount-1 do
  begin
    S:='';
    if Groupbox1.Controls[i].ClassType = TmEMO then
      begin
        for j:=1 to Length('class') do
          S:=S+Groupbox1.Controls[i].Name[j];
        if S='class' then
         Tmemo(Groupbox1.Controls[i]).Visible := false;
         Tmemo(groupbox1.Controls[clchoose.ItemIndex +1]).Visible := true;
      end;

[angvelem]

Код:

  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TMemo) and ((Components[i] as TMemo).Parent = GroupBox1) then
      ...

так пойдёт?