*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;
......