谁能帮忙将这段C++代码转成Delphi

哪位高手能帮忙将这段C++代码转成Delphi?C++代码如下,无奈我功力不足，苦无办法翻译成delphi,只得请教高手

哪位高手能帮忙将这段C++代码转成Delphi?
C++代码如下,无奈我功力不足，苦无办法翻译成delphi,只得请教高手了。

struct  GDIOPERATION;
typedef GDIOPERATION  *PGDIOPERATION;
typedef VOID (WINAPI *GDIOPERATIONFUNC)( PGDIOPERATION pOper, PVOID pVal1, PVOID pVal2, PVOID pVal3 );

typedef struct GDIOPERATION
{
PVOID pIs;
GDIOPERATIONFUNC  SetGDIText;
GDIOPERATIONFUNC  SetGDITextColor;
GDIOPERATIONFUNC  SetGDITextFormat;
GDIOPERATIONFUNC  SetGDITextPosition;
GDIOPERATIONFUNC  SetGDIGraph;
GDIOPERATIONFUNC  SetGDIGraphPen;
GDIOPERATIONFUNC  SetGDICanCalAll;
GDIOPERATIONFUNC  SetGDICanCalOne;
}GDIOPERATION, *PGDIOPERATION;
[解决办法]


type
  GDIOPERATIONFUNC = procedure(pOper: PGDIOPERATION; 
    pVal1, pVal2, pVal3:Pointer); stdcall;
  PGDIOPERATION = ^GDIOPERATION;
  GDIOPERATION = record
    pIs: Pointer;
    SetGDIText: GDIOPERATIONFUNC;
    //..... 下面照着写
  end;

[解决办法]
改下顺序
type
  // 定义结构体指针
  PGDIOPERATION = ^GDIOPERATION;
  // 定义函数指针
  GDIOPERATIONFUNC = procedure(pOper: PGDIOPERATION;
    pVal1, pVal2, pVal3: Pointer); stdcall;
  // 结构体定义
  GDIOPERATION = record
    pIs: Pointer;
    SetGDIText: GDIOPERATIONFUNC;
    //..... 下面照着写
  end;
[解决办法]
你得把上面我给你的代码放在单元接口部分，不然下面使用就找不到这些类型定义