请高手转换一段vc++代码

Question

这段vc++代码用delphi怎么写:
 //这是类
 class CInitParam
 {
  public:
     CInitParam()
     {
       m_Ip=0;
       m_Port=0;
       m_ShowLog=false;
      }
  public:
    char* m_IP;
    unsigned short m_Port;
    bool m_ShowLog;
  }
 //这是一个函数，代码略
 init Initialize(CInitParam* pParam); //这是调用代码  CInitParam x;
  x.m_Ip="192.168.0.1";
  x.m_Port=80;
  x.m_ShowLog=true;
  Initialize(&x);

Answer 1

type
  TInitParam=class
  public
     constructor Create;
  public
    m_IP:PChar;
    m_Port:Word;
    m_ShowLog:Boolean;
  end;
  procedure Initialize(var pParam:TInitParam);
implementationconstructor TInitParam.Create;
begin
       m_Ip:=nil;
       m_Port:=0;
       m_ShowLog:=False;
end;//调用代码var 
 x:TInitParam;
begin
   x:=TInitParam.Create;
   x.m_Ip:='192.168.0.1';
   x.m_Port:=80;
   x.m_ShowLog:=True;
   Initialize(x);
end;