Yo creo que a ti te hace falta un poco de descanso
Tómate un respiro y reexamina el código y la pregunta que haces.
A ver, en ¿qué parte del código usas lo que devuelve el SaveDialog?
En estas dos líneas:
ChDir(ExtractFilePath(Guarda_Pdf.Filename));
Nom := Guarda_Pdf.FileName;
La primera es para cambiarte de
directorio y la segunda para crear TQRPDFDocumentFilter quien recibe el
nombre del archivo.
Pero estas dos cosas tú ya las tienes sin necesidad del SaveDialog.
Entonces úsalas directamente.
// Saludos