请问这几句delphi怎么改成bcb

const
  WM_REFRESH_USERS = WM_USER + 330;

type
  TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);

  PCmdRec = ^TCmdRec;
  TCmdRec = record
    Cmd: string;
  end;

---

const WM_REFRESH_USERS = WM_USER + 330;
enum TRefreshParam {rpRefreshAll, rpAppendItem, rpDeleteItem};

struct TCmdRec
  { String Cmd;
  };
typedef TCmdRec * PCmdRec;

---

修改一下:
C/C++ code:

struct TCmdRec
{
AnsiString Cmd;
};

---

谢谢，想把一个delphi的indytcpserver demo改成bcb的，搞了很久还是没有搞定（http://read.pudn.com/downloads97/sourcecode/hack/trojan/396877/Server/Unit1.pas__.htm），那位大哥能帮帮忙看看
1：
__fastcall TUser::SetContext(const TIdContext * Value)
{
        //if FContext <> nil then FContext.Data := nil;
        //if Value <> nil then Value.Data := Self;
        //FContext := Value;
        if(FContext!=NULL) FContext->Data=NULL;
        //if(Value!=NULL) Value->Data=this;//这句话该怎么改？？
        FContext=(TIdContext *)Value;
}

2：
void __