Fórum Erro ao fechar um MessageDLG personalizado #348686

procedure TFormFornecedoresNovo.FormShow(Sender: TObject);
var
  AMsgDialog: TForm;
  A_Button, B_Button : TButton;

begin
   AMsgDialog := CreateMessageDialog(´Informe sua situação:´, mtConfirmation,[]);
   A_Button := TButton.Create(AMsgDialog);
   B_Button := TButton.Create(AMsgDialog);

   With AMsgDialog do
        try
          Caption := ´Minha Caixa de Diálogo Personalizada´;
          Height := 140;
          Width := 300;
          Position := poMainFormCenter;
          Align := alCustom;
          BorderStyle := bsSizeable;
          BorderIcons := [biSystemMenu];

          With A_Button do
               Begin
                  Parent := AMsgDialog;
                  Top := 70;
                  Height := 33;
                  Width := 133;
                  Left := 10;
                  Caption := ´PESSOA FÍSICA´;
                  Font.Style := [fsBold];
                  TabOrder := 0;
                  ShowHint := True;
                  Hint := ´Escolha esta opção para cadastrar um cliente por situação Física!´;
                  OnClick := ClickPessoaFisica;
               end;

         With B_Button do
               Begin
                  Parent := AMsgDialog;
                  Top := 70;
                  Height := 33;
                  Width := 133;
                  Left := 150;
                  Caption := ´PESSOA JURÍDICA´;
                  Font.Style := [fsBold];
                  TabOrder := 1;
                  ShowHint := True;
                  Hint := ´Escolha esta opção para cadastrar um cliente por situação Júridica!´;
                  OnClick := ClickPessoaJuridica;
               end;

         ShowModal;
    except
    A_Button.Free;
    B_Button.Free;
    Free;
    end;

end;

  public
    { Public declarations }
    procedure ClickPessoaJuridica(Sender:TObject);

    procedure ClickPessoaFisica(Sender:TObject);


procedure TFormFornecedoresNovo.ClickPessoaFisica(Sender:TObject);
Begin
showmessage(´Opcao PESSOA FISICA ´);
end;

procedure TFormFornecedoresNovo.ClickPessoaJuridica(Sender:TObject);
Begin
showmessage(´Opcao PESSOA JURIDICA ´);
end;