Imagen de portapapeles a QRImage

[Angel.Matilla]

Tengo este código:

void __fastcall TfPersona::PerFicClick(TObject *Sender)
{
     Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
     HDC hdcSrc = GetWindowDC(this->Handle);

     pBitmap->Width  = this->Width;
     pBitmap->Height = this->Height;
     BitBlt(pBitmap->Canvas->Handle, 0, 0, pBitmap->Width, pBitmap->Height, hdcSrc, 0, 0, SRCCOPY);
     Clipboard()->Assign(pBitmap);

     ReleaseDC(this->Handle, hdcSrc);

     if (Clipboard()->HasFormat(CF_BITMAP))
     {
          Application->CreateForm(__classid(TfFicPer), &fFicPer);

          Clipboard()->Open();
          pBitmap->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP), 0);
          Clipboard()->Close();

          fFicPer->QRImage2->Picture->Assign(pBitmap);
          cReportTitle = "FICHA PERSONAL " + Nombre->Text + " " + Apellidos->Text;
          fFicPer->qFicPer->Preview();
          delete fFicPer;
     }
     delete pBitmap;
     this->SetFocus();
}

para volcar un copia de pantalla en un QucikReport a través del portapapeles. He comprobado que en el mismo sí está la imagen pero al hacer el Preview me sale el formulario en blanco. ¿Alguna idea?