Add(Edit,7420984,161,49)
{
 Left=50
 Top=35
 Width=280
 Text=""
 Point(doEnabled)
 link(onChange,7399969:doNext,[])
}
Add(Counter,7399969,210,49)
{
 Max=11
 link(onNext,7420984:doEnabled,[(252,55)(252,39)(151,39)(151,69)])
}

*Position=Позиция курсора|3|int[/code][b]hiEdit.pas[/b]
unit hiEdit;
interface
uses Kol,Share,Win,Windows;
type
  Tfunc = function(const s:string; Ptr:pointer):boolean;
  THIEdit = class(THIWin)
   ......
   public
    ......
    procedure _var_Position(var _Data:TData; Index:word);
    ......
implementation
......
procedure THIEdit._var_Position;
begin
   _Data := _doData(Control.SelStart);
end;
......