1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.LoadClick(Sender: TObject);
var
List: TStrings;
begin
List := TStringList.Create;
try
  List.LoadFromFile('C:\Datei.txt');
  if List.Count>0 then
    Edit1.Text:=List[0];
  finally
  List.Free;
end;
end;

procedure TForm1.SaveClick(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
try
  List.Add(Edit1.Text+','+Edit2.Text+','+Edit3.Text+','+Edit4.Text+','+Edit5.Text+','+Edit6.Text+','+Edit7.Text+','+Edit8.Text+','+Edit9.Text+','+Edit10.Text+','+Edit11.Text+','+Edit12.Text+','+Edit13.Text+','+Edit14.Text+','+Edit15.Text+','+Edit16.Text+','+Edit17.Text+','+Edit18.Text+','+Edit19.Text+','+Edit20.Text+','+Edit21.Text+','+Edit22.Text+','+Edit23.Text+','+Edit24.Text+','+Edit25.Text+','+Edit26.Text+','+Edit27.Text+','+Edit28.Text+','+Edit29.Text+','+Edit30.Text+','+Edit31.Text+','+Edit32.Text+','+Edit33.Text+','+Edit34.Text);
  List.SaveToFile('C:\Datei.txt');
finally
  List.Free;
end;
end;					

1:

Edit1.Text:=List[0];					

1:
2:
3:
4:
5:
6:

property Edits[const AIndex: Integer]: TEdit read GetEdits;

function GetEdits(const AIndex: Integer): TEdit;
begin
  Result := TEdit(FindComponent('Edit'+IntToStr(AIndex)));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.LoadClick(Sender: TObject);
var
List: TStrings;
i:integer;
begin
List := TStringList.Create;
try
  List.LoadFromFile('C:\Datei.txt');
  for i := 1 to 34 do
  begin
  with TEdit(FindComponent( 'Edit' + IntToStr( i)) ) do
  begin
  Edit1.Text:=List[0];
  end;
  end;
  finally
  List.Free;
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.SaveClick(Sender: TObject);
  var
    List: TStringList;
    i: Integer;
begin
  List := TStringList.Create;
  try
    for i := 1 to 34 do
      List.Add(TEdit(FindComponent('Edit'+IntToStr(i))).Text);
    List.SaveToFile('C:\Datei.txt');
  finally
    List.Free;
  end;
end;