bcb to delphi 语法转换

Question

请问下面一段 c++builder 的程序怎样转换成Delphi的程序？long buff;
unsigned char st[]={0xFF,0x01,0x00,0x10,0x00,0x20,0x31};
buff=(long)st;
CR1->PutSIOData(1,buff,7);

Answer 1

//再来贴一个～～
//万变不离其中～～
//都是取得数据的首地址～～var
  buff: Longint;
const
  st: string = #$FF#$01#$00#$10#$00#$20#$31#0;
begin
  buff := Longint(@st[1]);
  CR1->PutSIOData(1, buff, 7);
end;

Answer 2

var
  buff: Longint;
  st:array[1..7] of byte;
begin
  st[1]:=$FF;
  st[2]:=..
  buff := Longint(@st[1]);
  CR1->PutSIOData(1, buff, 7);
end;