看看这段VC代码如何转换(100分)

各位兄台、表姐^-^
我在调视频采集程序的时候，遇到如下问题，如何将下面这段VC代码转换成pascal，问题
主要在于BYTE * DataBuf；
//BMP
typedef struct
{
BYTE * DataBuf;//[in],[out]
int Width;//[out]
int Height
//[out]
UINT PixelFormat;//[out]
//
BOOL EnSaveFile;//[in]
char szFileName[256];//[in]
}stBMP;

void CMainFrame::OnBmpSave()
stBMP stBmp;
int Len=sapiGetBMPDataBuf(0,0,NULL);//得到databuf要开辟的空间大小
if(Len==-1||Len==0)
return
stBmp.DataBuf =NULL;
stBmp.Width =-1;
stBmp.Height =-1;
stBmp.EnSaveFile =TRUE;
strcpy(stBmp.szFileName ,"main.bmp");
BYTE * buf=NULL;
stBmp.DataBuf=new BYTE[Len];---关键是这一段
if(stBmp.DataBuf==NULL)
return
Len=sapiGetBMPDataBuf(0,0,&stBmp);
if(stBmp.DataBuf!=NULL)
delete stBmp.DataBuf;
用动态数组如何取代对databuf操作的代码？急急急！

//主要在于BYTE * DataBuf
DataBuf: ^BYTE;

不应该也不可能用动态数组,只能自己管理,用getmem
DataBuf: ^BYTE;

谢谢beta和donkey，解决了！