procedure _OnError(Sender: PObj; const Error:integer);
   public
...
procedure THITCP_Server._OnError;
begin
  _hi_OnEvent( _event_onError,Error );
end;