[emailx45]

FMX ---> Gif sample: https :// i.ibb.co / 5h3SKYqd / bds-SBj-Pf0-P5-Rn . gif

Código Delphi [-]
type
  TForm1 = class( TForm )
    RadioButton1: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    procedure RadioButton1MouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single );
    procedure MenuItem1Click( Sender: TObject );
    procedure MenuItem2Click( Sender: TObject );
  private
...

procedure TForm1.MenuItem1Click( Sender: TObject );
begin
  RadioButton1.IsChecked := true;
  ShowMessage( 'Si' )
end;

procedure TForm1.MenuItem2Click( Sender: TObject );
begin
  RadioButton1.IsChecked := false;
  ShowMessage( 'No' )
end;

procedure TForm1.RadioButton1MouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single );
begin
  PopupMenu1.Popup( Screen.MousePos.X, Screen.MousePos.Y );
end;