hallo
Code:
var i: integer;
begin
i := 0;
if fileexists('name' + inttostr(i) + '.txt') then
assignfile(fromf, 'name' + inttostr(i+1) + '.txt';
end;
das dann noch in einer schleife bearbeitet in der du zum beispiel alle dateien des ordners zählst und die schleife dann von 1 bis gezählte laufen lässt und schaust ob es die schon gibt!
und dann eine neu anlegst die eins höher ist!