Código Delphi [-] i:Integer; opcion: string; begin i := ((Sender as TComponent).Tag); case i of ...
i:Integer; opcion: string; begin i := ((Sender as TComponent).Tag); case i of ...