Кто разбирается в Memo?

  Memo1.Lines.Add(Edit1.text);

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 4 do begin
  Memo1.Lines.Add(Edit[i].text);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
 
begin
  for i := 0 to form1.ControlCount - 1 do
    if form1.Controls[i] is TEdit then
      Memo1.Lines.Add((form1.Controls[i] as TEdit).Text)
end;

var
i: Integer;
begin
 for i := 0 to Form1.ComponentCount - 1 do
 if Form1.Components[i].ClassType = TEdit
 then
 Memo1.Lines.Add(TEdit(Form1.Components[i]).Text);
end;

procedure TForm11.FormCreate(Sender: TObject);
var dir:string;
i:integer;
begin
getdir(0,dir);
dir:=dir+'\Data\Ключ.txt';
Memo1.Lines.LoadFromFile(dir);
begin
 for i := 0 to Form11.ComponentCount  do
 if Form11.Components[i].ClassType = TEdit
 then
 Memo2.Lines.Add(TEdit(Form11.Components[i]).Text);
end;
end;

procedure TForm11.FormCreate(Sender: TObject);
var dir:string;
i:integer;
begin
getdir(0,dir);
dir:=dir+'\Data\Ключ.txt';
Memo1.Lines.LoadFromFile(dir);
begin
 for i := 0 to Form11.ComponentCount-1  do
 if Form11.Components[i].ClassType = TEdit
 then
 Memo2.Lines.Add(TEdit(Form11.Components[i]).Text);
end;
end;

var dir:string;
i:integer;
begin
getdir(0,dir);
dir:=dir+'\Data\Ключ.txt';
Memo1.Lines.LoadFromFile(dir);