FAQ MSEide+MSEgui

procedure tmainfo.on_keyup(const sender: twidget; var ainfo: keyeventinfoty);
begin
  if ainfo.key = KEY_ESCAPE then
    close;
end;

uses
  { ... }
  msebitmap,
  msekeyboard; { KEY_ESCAPE }