wie soll die schleife geschrieben werden??

[karim2008]

Es tut mir leid leute!Aber ich gebe wirklich mühe!die prozedure die ich in mein Quellcode einfügen soll sieht so aus( damit daten von listbox gelesen und dann gespeichert)!

procedure TFormListIO.ButtonLesenClick(Sender: TObject);
VAR Datei : TextFile;
Zeile : STRING;
begin
if OpenDialog.Execute then
BEGIN
TRY
AssignFile (Datei,OpenDialog.Filename);
Reset (Datei);
WHILE NOT EOF(Datei) DO
BEGIN
Readln (Datei, Zeile);
ListBoxText.Items.Add (Zeile);
END;
EXCEPT
ShowMessage ('Fehler beim Lesen der Datei!');
END;
CloseFile (Datei);
ButtonLeer.Enabled := ListBoxText.Items.Count >= 1;
ButtonSpeichern.Enabled := ButtonLeer.Enabled;
END;
end;

procedure TFormListIO.ButtonSpeichernClick(Sender: TObject);
VAR Datei : TextFile;
Nr : INTEGER;
begin
if SaveDialog.Execute then
BEGIN
TRY
AssignFile (Datei,SaveDialog.Filename);
Rewrite (Datei);
FOR Nr := 0 TO ListBoxText.Items.Count-1 DO
Writeln (Datei, ListBoxText.Items[Nr]);
EXCEPT
ShowMessage ('Fehler beim Speichern der Datei!');
END;
CloseFile (Datei);
END;
aber die soll ich zu meinem Quellcode einpassen!Ich hab wirklich mehr mals versucht aber das programm funktioniert nicht!vielleicht kann mir jemand helfen oder paar Typ geben!und bitte kein gemeinte Kommentaren!Ich übergebe ja euch nicht meine Aufgaben!das ist auch nicht so gemeint!ich brauche ja hilfe!Danke!
LG