bcb to delphi语法转换

[ychyzr]

请问下面一段 c++builder 的程序怎样转换成Delphi的程序？

long buff;
unsigned char st[]={0xFF,0x01,0x00,0x10,0x00,0x20,0x31};
buff=(long)st;
CR1->PutSIOData(1,buff,7);

[zswangII]

var
buff: Longint;
const
st: array[0..6] of Byte = ($FF, $01,$00,$10,$00,$20,$31);
begin
buff := Longint(@st);
CR1->PutSIOData(1, buff, 7);
end;

[ychyzr]

up