Hola lbidi, hice la prueba creando al formulario con tu función y si da el error que mencionas, en el evento beforePrint del reporte, nose como solucionar eso. Pero también hice la prueba de llenar el qrLabel del formulario que lo llama, que es creado con tu función y si funciona, no marca error.
Código Delphi
[-]
CrearForm(TForm3, 2, 'Form3' );
TForm3(F).QRLabel1.Caption := Edit1.Text;
TForm3(F).QuickRep1.Preview;
F es la variable que usas en tu funcion, pero definida de forma Global y TForm3, el formulario donde esta el reporte.
Saluditos