#pas
Procedure THiAsmClass.doWork;
type Ttest = array[0..255] of WORD;
var
  .......
begin

end;