[lmikle]

Ну так и подставляй.

Код:

procedure SaveFile;
const
  FileNameTmpl = 'file_%date%_%time%.dat';
var
  FileName : String;
begin
  FileName := StringReplace(FileNameTmpl,'%date%',DateToStr(Now),[rfReplaceAll]);
  FileName := StringReplace(FileName,'%time%',TimeToStr(Now),[rfReplaceAll]);

  ShowMessage('А теперь сохраняем данные в файл с именем ' + FileName);
end;