procedure Tfmain.ImageEnVect1TextKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  fText.Text2Controls;
  { if ESC key is pressed, end editing text and select object }
  if key = VK_ESCAPE then
  begin
    ImageEnVect1.MouseInteractVt := [miObjectSelect];
    btnAddText.Down := False;
    btnSelect.Down := True;
    fText.Hide;
  end;
end;