Hilfe bei Laden einer TStringList

[Sebastian92]

Hey Leute, Ich arbeite an einem Programm, dass Namen von Personen un sinstige Informationen zu diesen in einer TStringList speichern soll und bei Bedarf aufrufen soll. Jetzt habe ich ein Problem mit dem Laden der TStringList. Könnt ihr mir Helfen, das ist mein Quelltext:

Delphi-Quellcode:

implementation

{$R *.DFM}

var Person :TStringList;

procedure Eingabe (var Name,Zusatz :String);
begin
  Name:=Form1.Edit1.Text;
  Zusatz:=Form1.Edit2.Text;
end;

procedure Ausgabe (Name,Zusatz :String);
begin
  Form1.Edit1.Text:=Name;
  Form1.Edit2.Text:=Zusatz;
end;

procedure load (var Name,Zusatz :String);
var s :String;
begin
  Person.loadFromFile('List.dat');
  s:=Person[Form1.ListBox1.ItemIndex];
  Name:=copy(s,1,(pos(s,',')-1));
  s:=copy(s,(pos(s,',')+1),length(s));
  Zusatz:=copy(s,1,(pos(s,',')-1));
end;

function Save (Name,Zusatz :String) :TStringList;
begin
  if FileExists('List.dat')
    then Person.LoadFromFile('List.dat')
    else Person:=TStringList.Create;
  Person.Add(Name+','+Zusatz+',');
  Person.SaveToFile('List.dat');
  Form1.ListBox1.Items.Add(Name);
  Form1.ListBox1.Items.SaveToFile('Namen.dat');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Personenname,Zusatzinfos :String;
begin
  Eingabe(Personenname,Zusatzinfos);
  Save(Personenname,Zusatzinfos);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var Personenname,Zusatzinfos :String;
begin
  Load(Personenname,Zusatzinfos);
  Ausgabe(Personenname,Zusatzinfos);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.ListBox1.Items.LoadFromFile('Namen.dat');
  if CheckBox1.Checked=true
    then Form1.ListBox1.Items.Clear;
end;

end.

Ich würde mich freuen, wenn mir jemand weiterhelfen könnte,
mfg Sebastian