[Taras2020]

Как сделать что бы было разширение (.txt) и если файл есть то создавать новый.

longExt := Length( Format( '%d', [fCount] ) );
if OutPath[Length( OutPath )] <> '\' then
OutPath := OutPath + '\';
outFileName := OutPath + ExtractFileName( inFile ) + '.f%.' + IntToStr( longExt ) + 'd';