Sinnvoller / Einfacher ist es erst nur den Dateinamen zu ermitteln (Variable benutzen) und dann einmalig zu schreiben also sowas:
Delphi-Quellcode:
Filename:=sDir+(IntToStr(helpint))+'.'+datestring+'.txt';
while FileExists(Filename) do
begin
inc(helpint);
Filename:=sDir+(IntToStr(helpint))+'.'+datestring+'.txt';
end;
AssignFile(f,Filename);
Rewrite(f);
CloseFile(f);