[[gluglu]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if pulsado = 1 then begin
    label1.caption := 'Error: Opción no computable.';
    radiobutton1.Enabled := false;
    radiobutton2.Enabled := false;
    radiobutton3.Enabled := false;
    button1.caption := 'Atrás';
  end
  else 
    if pulsado = 2 then begin 
      label1.caption := 'Eso se lo dices a un tamagochi, pero a mi no me engañas';
      radiobutton1.Enabled := false;
      radiobutton2.Enabled := false;
      radiobutton3.Enabled := false;
      button1.caption := 'Atrás';
    end
    else
      if pulsado = 3 then begin
        label1.caption := '¡Acertaste! Eres un subnormal sincero ';
        radiobutton1.Enabled := false;
        radiobutton2.Enabled := false;
        radiobutton3.Enabled := false;
        button1.caption := 'Atrás';
      end;
end;