procedure THIEdit._OnKeyDown;
var dt:TData;
begin
  if Assigned(_event_onEnter.Event) and( Key = 13) then // Проверка на использование точки
   begin
     if _prop_DataType(dt) then             // Что здесь проверяем и зачем 
        begin                 
        _hi_onEvent(_event_onEnter,dt);     // Данные на выход                   
           if _prop_ClearAfterEnter then    // Если чистить 
            begin
              ChangeEvent := false;         // Установка Control.Text вызывает _OnChange !!!
              Control.Text := ';
            end;
        end;
     Key := 0;
   end
  else inherited;
end;