Unit QRPDFFilt;
...
Procedure TPGenInfoInstit.EmitirInforme
Begin
SaveDialog1.FileName := ConsInt.FieldByName('Apellidos').AsString+', '+
ConsInt.FieldByName('Nombres').AsString+'.pdf';
SaveDialog1.Execute();
Conjunto.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog1.FileName+'.pdf') );
end;