Poner fecha y hora en FileName de un SaveDialog

[JarLem]

Hola compañeros del foro !!

Estoy con un pequeño problema desde hace rato y preocupado porque ya he perdido mucho tiempo en esto.

Lo que quiero hacer es que al momento de abrir un SaveDialog me ponga en la propiedad FileName una cadena que yo envio junto con la fecha y la hora actual del sistema, esto con el fin de crear copias de seguridad de mi base de datos utilizando los componentes de Interbase Admin de Delphi 7.

He logrado que muestre la fecha actual utilizando Format y FormatDateTime, pero cuando digo que muestre la hora, ejecuto y no hace nada, le quito la funcion para obtener la hora y ya me muestra la fecha.

Tengo lo siguiente:

Código Delphi [-]
var
  cad : String;
begin
 cad := Format('Nombre_BD_%s',[FormatDateTime('dd-mm-yyyy',Date)]);
 SaveDialog1.FileName := cad;
 If SaveDialog1.Execute Then
  Begin
  ...
  end:

Esto muestra la fecha correctamente cuando ejecuto el SaveDialog.

¿Como pondrían ustedes la hora?

Agradezco mucho la atención y colaboración que me puedan brindar.