procedure THIConvertor._work_doConvert12(var _Data:TData; Index:word);//StrToStream
var S:string;
    St:PStream;
    len:cardinal;
begin
  S := ReadString(_Data,_data_Data);
  St := NewMemoryStream;
  len := Length(S);
  St.Write(s[1],len);
  St.Position := 0;
  _hi_OnEvent(_event_onResult,St); //Тут НИЗЯ!!!
  St.free;
end;

procedure THIButton._OnClick;
begin
  _hi_OnEvent_(_event_onClick,_prop_Data);
end;

procedure __hi_OnEvent(const PointEvent:THI_Event;var Data:TData);
var P:PHI_Event;
begin
  P := @PointEvent;
  while Assigned(P.Event) do begin
    {$ifdef _DEBUG_}CallEvent(2,P^,Data);{$endif}
    P.Event(Data,P.Index);
    if(Data.data_type and $80)=0 then break;
    dec(Data.data_type,$80);
    P := PHI_Event(Data.next);
  end;
end;