Reference IDialog

  IDialog = interface
  public
    { Show the dialog and return immediately }
    procedure Execute(OnClose: TDialogCloseEvent);
    { The dialog caption }
    property Title: string read GetTitle write SetTitle;
    { Accepted is true if the user accepted the dialog when it closed }
    property Accepted: Boolean read GetAccepted;
    { Showing is true while the dialog is open }
    property Showing: Boolean read GetShowing;
  end;