IPictureDisp al portapapeles

[aguml]

He probado a hacer cosas como estas que pongo a continuacion pero nada me funcionó

Código PHP:

void __fastcall TForm1::Exportarimagendeseleccionadosalportapapeles1Click(
      TObject *Sender)
{
   Clipboard()->Open();
   Clipboard()->Clear();
   TPicture *pIPD = new TPicture;
   pIPD->Assign((TPersistent*)AddFlow1->ExportPicture(afSelectedItems, true, true));
   Clipboard()->SetAsHandle(CF_METAFILEPICT, pIPD->Metafile->Handle);
   Clipboard()->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ExportarImagendetodosalportapapeles1Click(
      TObject *Sender)
{
   Clipboard()->Open();
   Clipboard()->Clear();
   IPictureDisp **pIPD = AddFlow1->ExportPicture(afAllItems, true, true);
   Clipboard()->SetAsHandle(CF_METAFILEPICT, (unsigned int)pIPD);
   Clipboard()->Close();
}