procedure THIEdit._OnKeyDown;
var dt:TData;
begin
  if Assigned(_event_onEnter.Event) and( Key = 13) then
   begin
     if _prop_DataType(dt) then begin
       Fchange := true;
       _hi_onEvent(_event_onEnter,dt); // вот здесь, в схеме, можно применить любое действие
       // doPosition, doSelectText, doSelectAll, doSelectLength, которое может установить Fchange=false
       // и следующее действие не наступит, пока не закончится вся цепь событий подключенных к _event_onEnter
       if Fchange and _prop_ClearAfterEnter then begin
         ChangeEvent := false; // Установка Control.Text вызывает _OnChange !!!
         Control.Text := ';
       end;
     end;
     Key := 0;
   end
  else inherited;
end;
end;

Add(Memo,6491968,301,119){
 Left=95
 Top=100
 Width=125
 Height=25
}