Listenindex überschreitet Maximum(1)

[DelphiUser1]

GHorn, danke für die Bemühungen, aber das war nicht mein Problem.
Inzwischen habe ich auch dieses Problem gelöst. Ja du hast recht ich lasse euch daran teilhaben
Wie gesagt ich meinte das anders. Ich weiß schon wie ich das abspeichern kann, aber um den Sachverhalt genauer zu erklären:
Der User Registriert sich das erste Mal, er gibt die Informationen also ein und sie werden der Stringlist hinzugefügt. Dann wird eine neue Form erzeugt auf der man Benutzername und Passwort eingeben kann. Erst wenn der Benutzername eingegeben ist, sollen die Daten abgespeichert werden, da die Datei dem Nutzernamen entspricht. Mein Problem war, das ich die Items nicht in die Stringlist packen konnte, dabei ist es doch so leicht

Delphi-Quellcode:

procedure TReg.Button1Click(Sender: TObject);
var sl, sd: TStrings;
i:integer;
begin
  sl := TStringlist.Create;
  sl.add(Edit1.Text);
  sl.savetofile(path+ Edit2.Text +'.txt');
  sd :=TStringlist.Create;
sd.Add(Form1.Edit3.Text);
sd.Add(Form1.Edit4.Text);
sd.Add(Form1.MaskEdit1.Text);
sd.Add(Form1.Edit6.Text);
sd.Add(Form1.ComboBox3.Text);
  for i := 0 to Form1.Checklistbox1.Items.Count-1 do
    begin
      if Form1.Checklistbox1.Checked[i] then
      sd.Add(Form1.Checklistbox1.Items[i])
    end;
  sd.SaveToFile(path+'Info'+Edit2.Text+'.txt');
  sd.free;
  sl.free;
  Showmessage ('Sie haben erfolgreich ein Konto angelegt');
  myForm.close;
  Form1.Close;

end;