[juaarias]

no sabia que era pirateado, es el que me dan en al facu.
ya resolvi el ejercicio de esta manera:

  if rdgTipoPago.ItemIndex=0 then
        begin
        frmRecibo.lblTipo.Caption:='Efectivo';
        end
        else begin
          if rdgTipoPago.ItemIndex=1 then
          begin
          frmRecibo.lblTipo.Caption:='Tarjeta';
          end
          else begin
            if rdgTipoPago.itemIndex=2 then
            begin
              frmRecibo.lblTipo.Caption:='Cheque';
            end;

en este caso eran 3 items pero si llegara a precisar utilizar mas seria engorrozo