Procedure THiAsmClass.doString;
var str:string;
begin
str:= toStringEvent(strIN)+;
SetLength(str,20);
_hi_OnEvent(onString,str );
end;