function IncFileName(const FileName: string; const Start: integer = 1): string;
var N : integer;
F : string;
E : string;
begin
N := Start;
F := ExtractFileName(FileName);
E := ExtractFileExt(FileName);
Delete(F, Length(F)-Length(E)+1, Length(E));
repeat
Result := F+' ('+IntToStr(N)+')'+E;
inc(N);
until not FileExists(result);
end;