c定义的结构转delphi(delphi7)

各位达人帮忙转一下，不胜感谢。#define MAX_IMAGE_SIZE 102400
typedef struct ATMIVA_AlarmInfo
{
LONG Id;
ATMIVA_Time AlarmTime;
DWORD AlarmType;
DWORD AnalyzeChannel;
ATMIVA_PictureInfo BeforeAlarmPic;
ATMIVA_PictureInfo AfterAlarmPic;
DWORD RectCount;
RECT AlarmRects[16];
char Description[128]; ATMIVA_AlarmInfo()
{
Id = -1;
memset(&AlarmTime, 0, sizeof(ATMIVA_Time));
AnalyzeChannel = -1;
BeforeAlarmPic.Buffer = new BYTE [MAX_IMAGE_SIZE];
BeforeAlarmPic.Width = 0;
BeforeAlarmPic.Height = 0;
BeforeAlarmPic.Size = 0;
AfterAlarmPic.Buffer = new BYTE [MAX_IMAGE_SIZE];
AfterAlarmPic.Width = 0;
AfterAlarmPic.Height = 0;
AfterAlarmPic.Size = 0;
RectCount = 0;
}
void Reset()
{
Id = -1;
memset(&AlarmTime, 0, sizeof(ATMIVA_Time));
AnalyzeChannel = -1;
BeforeAlarmPic.Width = 0;
BeforeAlarmPic.Height = 0;
BeforeAlarmPic.Size = 0;
AfterAlarmPic.Width = 0;
AfterAlarmPic.Height = 0;
AfterAlarmPic.Size = 0;
RectCount = 0;
}
~ATMIVA_AlarmInfo()
{
delete []BeforeAlarmPic.Buffer;
delete []AfterAlarmPic.Buffer;
}
} ATMIVA_AlarmInfo, *LPATMIVA_AlarmInfo;