ShowProgress en TProgressBar

[Angel.Matilla]

Estoy usando un código que me facilitaron en otro foro para que el ShowProgress al imprimir un documento con QuickReport se muestre en un TProgressBar en lugar de hacerlo en su propio formulario, que no me gusta ni por la estética que tiene ni por el botoncito de Cancel que incorpora.

El código es este:
1. En el BeforePrint del informe:

Código PHP:

if (Sender->QRPrinter->Client->ClassNameIs("TQRProgressForm")) 
    Sender->QRPrinter->Client = Form1; // El Form donde queremos recibir CM_QRPROGRESSUPDATE 


2. En el formulario que va a recibir la información:

Código PHP:

private:   // User declarations 

    void __fastcall CmQrProgressUpdate(TMessage& msg) 
    { 
        ProgressBar1->Position = msg.WParamLo; 
        inherited::Dispatch(&msg); 
    } 
    BEGIN_MESSAGE_MAP 
        MESSAGE_HANDLER(CM_QRPROGRESSUPDATE, TMessage, CmQrProgressUpdate) 
    END_MESSAGE_MAP(inherited) 


Y, evidentemente:

Código PHP:

QuickReport1->ShowProgress = false;
QuickReport1->Print(); 


Pero al tratar de ejecutar este código compilado con Builder 6 me da un error que no sé por donde enganchar.


¿Alguien puede sugerirme alguna idea? O bien, como alternativa, como modificar el aspecto del panel en que se muestra el ShowProgress del propio QR.