Listbox items werden nicht in textfile gespeichert

[gLu3xb3rchi]

Hallo

Ich hab folgende Procedure im Inet gefunden, sie mir angeschaut, mit ihr rumgespielt und, glaub ich zumindest, mehr oder weniger verstanden

Delphi-Quellcode:

// Write Procedure

procedure SaveStringToFile (Filename, SaveString: string);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create (Filename, fmCreate);
  try
    if SaveString <> '' then
      fs.Write (SaveString[1], Length (SaveString));
  finally
    fs.Free;
  end;
end;

Delphi-Quellcode:

// close button

procedure TForm1.Button3Click(Sender: TObject);
 var liste2: String;
begin
 ListBox2.items.text:=liste2;
 SaveStringToFile ('highscore.txt', liste2);
 close;
end;

Wenn ich auf button3 klicke, schließt sich das programm, die .txt datei wird zwar erstellt, ist aber leer. Listbox2 ist definitiv mit mind. 3 items gefüllt. Es kommen außerdem keine fehler beim complimieren. Jetzt versuch ich schon seit stunden rauszufinden, warum nix in die blöde .txt datei geschrieben wird :/