Hi!Just do this:Code: Pascal [Select][+][-]var i: integer =0;fname : string;...repeat inc(i);fname := 'New'+IntToStr(i)+'.txt';until not fileExists(fname);showMessage (fname+' is the new filename');end; Winni