紧急求助！200分,关于VC++代码转换成delphi代码的一个问题(200分)

VC++ 代码：
USHORT Format1[40] = {48, 16, '办','公','室','风', '景', '/0'};
USHORT Format2[40] = {24, 240, _OSD_YEAR2, '-',_OSD_MONTH2,'-',_OSD_DAY,'-', _OSD_HOUR24, ':', _OSD_MINUTE,':', _OSD_SECOND, '/0'};
以上转成delphi代码应该是什么？
谢谢～～～

procedure TForm1.Button1Click(Sender: TObject);
var
Format1:Array[0..39] of word;
begin
Format1[0] := 48;
Format1[1] := 16;
Format1[2] := ord(wideString('办')[1]);
Format1[3] := ord(wideString('公')[1]);
Format1[4] := ord(wideString('室')[1]);
Format1[5] := ord(wideString('风')[1]);
Format1[6] := ord(wideString('景')[1]);
Format1[7] :=0;

//USHORT Format2[40] = {24, 240, _OSD_YEAR2, '-',_OSD_MONTH2,'-',_OSD_DAY,'-', _OSD_HOUR24, ':', _OSD_MINUTE,':', _OSD_SECOND, '/0'};

end;

接受答案了.