Código Delphi [-]procedure TForm1.btn1Click(Sender: TObject); var opcion: string; begin case (Sender as TComponent).Tag of 1: opcion:='bb'; 2: opcion:='aa'; end; end;
procedure TForm1.btn1Click(Sender: TObject); var opcion: string; begin case (Sender as TComponent).Tag of 1: opcion:='bb'; 2: opcion:='aa'; end; end;