ich denk wir haben uns in dem einem Thread geeinigt allen nur noch fertige Codes zu geben?
Am Besten hier melden sich auch noch ein paar Lehrer an und geben uns die Hausaufgaben, damit wir's einfacher haben, wenn wer fragt 
Nja, mal im Ernst ... in .Name steht halt nur der Dateiname drin und sonst nix, also immer schon den Pfad mit dazupacken.
[add]
Zitat von
AJ_Oldendorf:
F.Name liefert im ersten Durchlauf 1.txt und im zweiten Durchlauf 2.txt.
Sieht also richtig aus.
also quasi so
Code:
procedure TForm1.Button2Click(Sender: TObject);
SL.SaveToFile([color=#ff0000][b]'C:\1.txt'[/b][/color]);
procedure TForm1.Button3Click(Sender: TObject);
if FindFirst('C:\*.txt', faAnyFile, F)= 0 then
TmpStream := TFileStream.Create([color=#ff0000][b]'1.txt'[/b][/color], fmOpenRead);