1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure THauptform.SpeicherButtonClick(Sender: TObject);
var Datei : TextFile;
    Nr    : INTEGER;
begin
  if SaveDialog1.Execute then
     begin
     try
        AssignFile (Datei,SaveDialog1.Filename);
        Rewrite (Datei);
        for Nr := 0 to ErgebnisseListbox.Items.Count-1 do
            Writeln (Datei, ErgebnisseListbox.Items[Nr]);
     except
        ShowMessage ('Fehler beim Speichern der Datei!');
     end;
     CloseFile (Datei);
     end;

end;