Reference TCustomMessageDialog

  TCustomMessageDialog = class(TCustomDialog, IMessageDialog)
  protected
    FMessage: string;
    FKind: TMessageKind;
    FButtons: StringArray;
    FButtonIndex: Integer;
    { Close the dialog with the index of the button chosen, or -1 }
    procedure CloseButton(Index: Integer);
  end;