procedure THIWin._onDblClick;
begin
  _hi_OnEvent(_event_onDblClick, integer(Mouse.Button)-1);
end;