C++翻DELPHI(50分)

请高手帮忙翻译一下，DELPHI怎么写，主要是第一段
//---------------------------------------------------------------------------
//1
BYTE linshi;
BYTE *content;
linshi=deliver_inst.code_mess;
union hanzi
{
long hanzi_int;
BYTE hanzi_byte;
} mess_hanzi;
union trans
{
long tr_lg;
BYTE con[2];
}ansi_tran;
long changdu;
AnsiString mess_content;
byte con[2];
BYTE *change;
//---------------------------------------------------------------------------
//2
if((int)linshi==11 || (int)linshi==8)//UCS2编码
{
linshi=deliver_inst.len_mess[3];
content=deliver_inst.mess;
for(int i=0;i<(int)linshi;i=i+2)
{
mess_hanzi.hanzi_byte=content;
ansi_tran.con[1]=mess_hanzi.hanzi_int;
mess_hanzi.hanzi_byte=content[i+1];
ansi_tran.con[0]=mess_hanzi.hanzi_int;
changdu=ansi_tran.tr_lg;
mess_content=mess_content+AnsiString(WideString(changdu));
}
}
else
{
change=deliver_inst.mess;
mess_content=(char *)change;
}

//---------------------------------------------------------------------------
//1
type
hanze = record
hanzi_int: longint;
hanzi_byte: byte;
end;
trans = record
tr_lg: longint;
con: array[0..1] of byte
end;

var
linshi: byte;
content: ^byte;
mess_hanzi: hanzi;
ansi_tran: trans;
changdu: longint;
mess_content: string;
con: array [0..1]of byte;
change: ^byte;
begin

linshi:= deliver_inst.code_mess;//估计你在C++里是用的宏定义,不知是否?记住delphi里没有宏,这样也将就着好用
end;

底下的大同小异,自已想了,最好找本书好好看看

第二部分是最难的呀（对于我），不知道从什么地方入手没看懂
第一部分我还能想出来，只是不赶肯定对不对

接受答案了.