Gtk.Message_Dialog

[AdaMagica <christ-usch.grein@t-online.de>]

I need a two page message for a help button, so I have the callback

  procedure Help (Self: access Gtk.Button.Gtk_Button_Record'Class) is
  begin
    Show ("Page 1");
    Show ("Page 2");
  end Help;

where

  procedure Show (Message: Glib.UTF8_String) is
    Dialog  : Gtk.Message_Dialog.Gtk_Message_Dialog;
    Response: Gtk.Dialog.Gtk_Response_Type;
  begin
    Gtk.Message_Dialog.Gtk_New (Dialog,
                                Parent   => Parent,
                                Flags    => Modal,
                                The_Type => Message_Info,
                                Buttons  => Buttons_Close,
                                Message  => Message);
    Response := Gtk.Message_Dialog.Run (Dialog);
    Gtk.Message_Dialog.Close (Dialog);
  end Show;

The problem is: When the first dialog's Close button is pressed, the next page appears, but the first is not closed. When the second page's Close is pressed, the window disappers, but the first dialog window is still there. Only pressing the red cross on the window's right upper edge closes the dialog.

What's wrong with my code?