Как указать имя сохраняемого файла

[Crack68]

У меня после некоторых операций сохраняется файл по пути.
Код
W.ActiveDocument.SaveAs(ExtractFile Dir(Application.ExeName) + '\DocumentArchive\RUS_WARRANTY_' + DateToStr(Date)+ '.docx');

Здесь в имя пишется дата системная, как время указать??
Или еще что нибудь, а то получается что при повторном сохранении файл перезаписывается.

Вид как получается RUS_WARRANTY_18.05.2012.docx
Как хочется при последующем сохранении:

либо RUS_WARRANTY_18.05.2012_1.docx
RUS_WARRANTY_18.05.2012_2.docx (след запись)
_3.docx

либо RUS_WARRANTY_18.05.2012_17.40.41.do cx

[GunSmoker]

Здесь в имя пишется дата системная, как время указать??

Отжог. Date на Time заменять не пробовал? Или, там, F1 нажать?

Как хочется при последующем сохранении

var
  Template, FileName: String;
  N: Integer;
begin
  ...
  Template := 'C:\file%s.docx'; // заменить на свой 

  FileName := Format(Template, ['']);
  N := 1;
  while FileExists(FileName) do
  begin
    Inc(N);
    FileName := Format(Template, ['_' + IntToStr(N)]);
  end;

  W.ActiveDocument.SaveAs(FileName);
  ...
end;

[phomm]

Вот кусок моей процедурки:

  fs: TFormatSettings;
...
  fs.LongTimeFormat := 'hh.mm.ss.zzz';
...(Format('%s\%s.log', [DbgPath, TimeToStr(now, fs)]));