s := FormatDateTime('yyyy-mm-dd_hh-nn_(ss)', StartDateTime) + '.data';

procedure TMainForm.btnSaveClick(Sender: TObject);
var
  FileHandle: Integer;
  FileName: TFileName;
  s: string;

begin
  try
    s := DateTimeToStr(StartDateTime);          // StartDateTime: TDateTime
    while System.Pos(':', s) > 0 do s[System.Pos(':', s)] := '-';
    s := s + '.data';
  except
    s := 'Файл с данными.data'
  end;

  try
    dlgFileSave.FileName := s
  except
    Application.MessageBox('Ошибка подготовки диалога сохранения.',
          'Сохранение данных', MB_ICONERROR or MB_OK);
    exit
  end;

  try
    if dlgFileSave.Execute then
    begin
      FileName := dlgFileSave.FileName;
      FileHandle := FileCreate(FileName, fmOpenReadWrite);
      SaveDataToFile(FileHandle, mmComment.Text); // сохраняю динмассивы в файл
      FileClose(FileHandle);
      Application.MessageBox('Данные успешно сохранены в файле.',
          'Сохранение данных', MB_ICONINFORMATION or MB_OK)
    end
  except
      Application.MessageBox('Не удалось записать данные в файл',
          'Сохранение данных', MB_ICONERROR or MB_OK)
  end;
end;