Add(MainForm,2953706,231,119)
{
}
Add(Edit,3078947,161,105)
{
 Left=13
 Top=105
 Width=365
 Point(onKeyDown)
 link(onEnter,3078947:doText,[(200,118)(200,97)(151,97)(151,111)])
 link(onKeyDown,4616424:doWork2,[])
}
Add(Edit,9802107,161,147)
{
 Left=13
 Top=133
 Width=365
 Point(onKeyDown)
 link(onKeyDown,4616424:doWork3,[(207,167)])
}
Add(HubEx,4616424,203,119)
{
 link(onEvent,2953706:doCaption,[])
}

#pas
procedure THIEdit._OnKeyDown;
var dt:TData;
begin
  if Key = 13 then begin
    if Assigned(_event_onEnter.Event) 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;
    end else inherited; // _event_onKeyDown
    Key := 0;
  end else inherited; // _event_onKeyDown
end;