#pas
procedure THiAsmClass.doConvert;
var d:cardinal;
begin
  d := ReadInteger(_Data, Data); 
  _hi_onEvent(onResult, Int2Hex((d and $FF shl 24) + (d and $FF00 shl 8) + (d and $FF0000 shr 8) + (d and $FF000000 shr 24), 8));
end;