#pas
procedure THiAsmClass.doWrite;
var s:string; i:integer;
begin
  s := ToString(_D); 
  i := length(s);
  Move(i,Data[0],4);
  Move(s[1],Data[4],i);
end;

procedure THiAsmClass.doRead;
var s:string; i:integer;
begin
  Move(Data[0],i,4);
  SetLength(s,i);
  Move(Data[4],s[1],i);
  _hi_CreateEvent(_D,@onRead,s);
end;