[NumLock]

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure MessageDialogQuery(Sender: TObject; var CanClose: Boolean);
  public
    { Public declarations }
  end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  MessageDialog: TForm;
begin
  MessageDialog:=CreateMessageDialog('MessageDialog', mtInformation, [mbYes]);
  MessageDialog.OnCloseQuery:=MessageDialogQuery;
  Edit1.Parent:=MessageDialog;
  MessageDialog.ShowModal;
  Edit1.Parent:=Self;
  MessageDialog.Free;
end;

procedure TForm1.MessageDialogQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=Edit1.Text='123';
end;

строка 21 нужна чтобы спасти тестовый Edit1 от удаления.