#pas
procedure THIStringTable._OnClick;
begin
   if (Control.LVCurItem <> -1)and(sel = Control.LVCurItem) then
     _hi_OnEvent(_event_onClick,Control.LVCurItem)
end;

procedure THIStringTable._onMouseDown;
begin
   sel := Control.LVCurItem;
   inherited;
end;