Delphi-PRAXiS - Problem mit Tstringlist

Habe eine Form mit 2 Buttons und einem Edit.

Mit der Form.create sollen 2 neue Edits erstellt werden

Während der Lauf zeit sollen die Daten in den Edits in eine Datei gespeichert werden.
Über einen 2. Button sollen die Daten eingelesen werden und Button1,2 und Form. caption mit den daten
geändert werden.

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

i:=2;

edit:=Tedit.create(Self);

edit.Name:= 'Edit' + IntToStr(i);

Edit.Text:= Edit.name+'.Text';

Edit.Top:=231;

Edit.Left:=400;

edit.Parent := Self;

i:=i+1;

edit:=Tedit.create(Self);

edit.Name:= 'Edit' + IntToStr(i);

Edit.Text:= Edit.name+'.Text';

Edit.Top:=261;

Edit.Left:=400;

edit.Parent := Self;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

s:String;

begin

s:= TButton(Sender).name;

st := Tstringlist.create; 

st.Add(Edit1.text);  //Hier klappt es da Edit1 schon vorhanden ist 

st.Add(Edit2.text);   //Hier meckert er

st.Add(Edit3.text);   // Hier auch

st.SaveToFile(s+'.ini');  

st.free; 

end;

Die Daten lesen und als Caption wiedergegeben soll hier passieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

begin

st := Tstringlist.create;

st.LoadFromFile('Button1.ini');

Button1.Caption:= st.strings[0];

Form1.Caption:= st.Strings[1];

Button2.Caption:= st.Strings[2];

end;