[Страдалецъ]

Не совсем понял вопрос, предположу что нужно примерно такое:

Код:

var i: Integer;
    FileName: String;
    FormatSettings: TFormatSettings;
begin
 if not OpenDialog1.Execute then Exit;
 FormatSettings.ShortDateFormat := 'ddmmyyyy hhmmss';
 for i := 0 to OpenDialog1.Files.Count - 1
 do begin
    FileName := ExtractFilePath(OpenDialog1.Files[i]);
    FileName := FileName + DateToStr(Now, FormatSettings) + '(' + IntToStr(i) + ')';
    FileName := FileName + ExtractFileExt(OpenDialog1.Files[i]);
    if FileExists(FileName) then Continue;
    RenameFile(OpenDialog1.Files[i], FileName);
    end;
end;