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

procedure TFoMain.TiUeberblickTimer(Sender: TObject);

var
   i : integer ;
   Eingabe1, Eingabe2, Eingabe3, Eingabe4, Eingabe5, : string ;

begin
    Eingabe1 := Edit1.Text ;
    Eingabe2 := Edit2.Text ;
    Eingabe3 := Edit3.Text ;
    Eingabe4 := Edit4.Text ;
    Eingabe5 := Edit5.Text ;

end;                    

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

procedure TFoMain.TiUeberblickTimer(Sender: TObject);

var
   i : integer ;
   Eingabe: array [1..5] of string ;

begin
for i := 1 to 5
    do
    Eingabe[i] := "Edit+i".Text //hier ist das Problem: wie muss ich "Edit+i" schreiben dass es funktioniert?
    ;

end;