[Janom]

Код:

{Динамическое Создание Edit'ов}
procedure TForm1.Button2Click(Sender: TObject);
var
  i,EDcount:Cardinal;
  ED:TEdit;
begin
EDcount:=10; //Количество создаваемых эдтов
for i:=1 to EDcount do
  begin
    ED:=TEdit.Create(Self);
    ED.Parent:=Form1;
    ED.Left:=10;
    ED.Top:=(ED.Height*i)+2;
    ED.Name:='DynCrtEdit'+IntToStr(i);
  end;
end;

{Заполнение Мемо из динамически созданных Эдитов}
procedure TForm1.Button3Click(Sender: TObject);
var
  i,j:Cardinal;
  S:ShortString;
  mStr:String;
begin
mStr:='';
For i:=0 to Form1.ControlCount-1 do
  begin
    S:='';
    if Form1.Controls[i].ClassType = TEdit then
      begin
        for j:=1 to Length('DynCrtEdit') do
          S:=S+Form1.Controls[i].Name[j];
        if S='DynCrtEdit' then
         mStr:=mStr+TEdit(Form1.Controls[i]).Text+' ';
      end;
  end;
Memo1.Text:=mStr;
end;