Reference TTerminalEmulatorDlg

  TTerminalEmulatorDlg = class(TForm)
  public
    Terminal: TTerminal;
    procedure TerminalTerminate(Sender: TObject);
  end;