紧急求助之一：请帮忙翻译（从VC＋＋到Delphi）？(100分)

CPaintDC dc(this);
IPicture *ppic;
IStream *pstrm;
.......

OLE_XSIZE_HIMETRIC hmWidth;
OLE_YSIZE_HIMETRIC hmHeight;
ppic->SetWidth(&hmWidth);
ppic->SetHeight(&hmHeight);
....
dc.GetDevicecps(HORZSIZE);
....
if(FAILED(ppic->Render(dc,0,0,(DWORD)fx,(DWORD)fy,0,hmHeigth,hmWidth,-hmHeight,0,0))){
....
}

看不懂！UP先

急用。