Crear Pdf con pulsar un botón

[Cabanyaler]

Uff, bueno estoy con esto y no me crea los pdf en el directorio que deseo.
Creo que el fallo estriba en mi desconocimiento alrededor de los comando del OLEObjeto creado para el PDFCreator.

¿Me podrías, quien controle, revisar a ver si me olvido de algo?.
Gracias.

Código Delphi [-]
procedure TFPrincipal.BitBtnPDFClick(Sender: TObject);
var
    Index: Integer;
    NombreImpresora   : string;
    NombrePDF : string;
begin
    // Pille l'impresora
    NombreImpresora   :=  'PDFCreator';
    Index := Printer.Printers.IndexOf(NombreImpresora);
    Printer.PrinterIndex := Index;
    //

    NombrePDF       := 'L:\JOSE\temp\'+ Cod_Cen_w + '_' + EditNumPedido.Text + '.pdf';
    PDFCreator := CreateOLEOBject('PDFCreator.clsPDFCreator');
    PDFCreator.cStart('/NoProcessingAtStartup');               
    StorePDFOptions();                                         
    SetPDFOptions(NombrePDF);            

    // ****
    // Imprimeix del QuickReport, obvio esta parte del código referente sólo al QuickReport
    . . . . 
    . . . . 
    // ****        
   
    RestorePDFOptions;                     // Restableisc els anteriors valors per a les opcions
    VarClear(PDFCreator);                  // Netetje la memoria del objecte PDFCreator
end;


procedure TFPrincipal.SetPDFOptions(const filename: String);
begin
   PDFCreator.cOption('UseAutosave')          := 1;
   PDFCreator.cOption('UseAutosaveDirectory') := 1;
   PDFCreator.cOption('AutosaveDirectory')    := ExtractFilePath(filename);
   PDFCreator.cOption('AutosaveFilename')     := ExtractFileName(filename);
   PDFCreator.cOption('AutosaveFormat')       := 0; // PDF format
   PDFCreator.cOption('PDFColorsColorModel')  := 0; // RGB format
   PDFCreator.cSaveOptions;
end;


procedure TFPrincipal.StorePDFOptions;
begin
   optUseAutosave :=                     PDFCreator.cOption['UseAutosave'];
   optUseAutosaveDirectory :=            PDFCreator.cOption['UseAutosaveDirectory'];
   optAutosaveDirectory :=               PDFCreator.cOption['AutosaveDirectory'];
   optAutosaveFilename :=                PDFCreator.cOption['AutosaveFilename'];
   optAutosaveFormat :=                  PDFCreator.cOption['AutosaveFormat'];
   optPDFColorsColorModel :=             PDFCreator.cOption['PDFColorsColorModel'];
end;


procedure TFPrincipal.RestorePDFOptions;
begin
   PDFCreator.cOption('UseAutosave')            := optUseAutosave;
   PDFCreator.cOption('UseAutosaveDirectory')   := optUseAutosaveDirectory;
   PDFCreator.cOption('AutosaveDirectory')      := optAutosaveDirectory;
   PDFCreator.cOption('AutosaveFilename')       := optAutosaveFilename;
   PDFCreator.cOption('AutosaveFormat')         := optAutosaveFormat;
   PDFCreator.cOption('PDFColorsColorModel')    := optPDFColorsColorModel;
   PDFCreator.cSaveOptions;
end;

Gracias.