Edit-Felder in Stringliste speichern

[Thomas F]

Ich möchte 10 Edit-Felder in einer Stringliste speichern.
Das soll eine Eingabe-Maske werden, und beim Neustart sollen die Felder wieder mit den Einträgen (von der Stringlist)gefüllt werden. 8)
Problem ist wenn ein oder mehrere Edits leer bleiben, dann erhält man immer eine Exception :

"Listenindex überschreitet das Maximum"

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var i:Integer;
begin
for i :=0 to ComponentCount -1 do
begin
  if Components[i] is TEdit then Stringliste.Strings[i]:= TEdit(Components[i]).Text;
end;
 Stringliste.SaveToFile('TEST.txt');
Form4.Close;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
    Stringliste := TSTringlist.Create;
    
end;

Weiss jemand, wie man das am besten macht ?