[Olenkaguilar]

Muchas a radenf y a ecfisa, lo que me indico randenf está bien, pero yo cometí un error en dar mi code, es por eso que me perdí al ver el code de ecfisa. vuelvo a colocar mi código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   with SpinEdit1 do
  begin
    MinValue:= 1;
    MaxValue:= 32;
    Increment:= 1;
    OnChange:= SpinAndEditChange;
  end;

  Edit2.OnChange:= SpinAndEditChange;
end;

procedure TForm1.SpinAndEditChange(Sender: TObject);
var                                                    //
 opcion: integer;
begin                                                 //
 opcion:= StrToInt(SpinEdit1.Text);

 case opcion of
  1: begin
    Edit3.Text := FloatToStr(0.2 * StrToFloatDef(Edit2.Text,0)+70);
  end;
  2: begin
    Edit3.Text := FloatToStr(0.35 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    3: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    4: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    5: begin
    Edit3.Text := FloatToStr(0.68 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    6: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    7: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    8: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    9: begin
    Edit3.Text := FloatToStr(0.68 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    10: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    11: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    12: begin
    Edit3.Text := FloatToStr(0.35 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    13: begin
    Edit3.Text := FloatToStr(0.25 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    14: begin
    Edit3.Text := FloatToStr(0.15 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    15: begin
    Edit3.Text := FloatToStr(0.05 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    16: begin
    Edit3.Text := FloatToStr(70 - 0.15 * StrToFloatDef(Edit2.Text,0));
  end;
    17: begin
    Edit3.Text := FloatToStr(70 - 0.2 * StrToFloatDef(Edit2.Text,0));
  end;
    18: begin
    Edit3.Text := FloatToStr(70 - 0.25 * StrToFloatDef(Edit2.Text,0));
  end;
    19: begin
    Edit3.Text := FloatToStr(70 - 0.5 * StrToFloatDef(Edit2.Text,0));
  end;
    20: begin
    Edit3.Text := FloatToStr(70 - 0.55 * StrToFloatDef(Edit2.Text,0));
  end;
    21: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    22: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    23: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    24: begin
    Edit3.Text := FloatToStr(70 - 0.65 * StrToFloatDef(Edit2.Text,0));
  end;
    25: begin
    Edit3.Text := FloatToStr(70 - 0.67 * StrToFloatDef(Edit2.Text,0));
  end;
    26: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    27: begin
    Edit3.Text := FloatToStr(70 - 0.5 * StrToFloatDef(Edit2.Text,0));
  end;
    28: begin
    Edit3.Text := FloatToStr(70 - 0.45 * StrToFloatDef(Edit2.Text,0));
  end;
    29: begin
    Edit3.Text := FloatToStr(70 - 0.28 * StrToFloatDef(Edit2.Text,0));
  end;
    30: begin
    Edit3.Text := FloatToStr(70 - 0.18 * StrToFloatDef(Edit2.Text,0));
  end;
    31: begin
    Edit3.Text := FloatToStr(70 - 0.1 * StrToFloatDef(Edit2.Text,0));
  end;
    32: begin
    Edit3.Text := FloatToStr(0.1 * StrToFloatDef(Edit2.Text,0)+70);
  end;


 end;  //

end;
end.

Osea en algunos les estoy agregando 70 y en otros al 70 le estoy restando( por ejemplo en la opción 31 le estoy restando al 70 y en la opción 32 le estoy agregando 70)
Ahora le eh puesto 2 radiobuttons. quisiera que al iniciar el programa siempre este seleccionado el radiobutton1 y que ejecute el código de arriba y si cambio al radiobutton2 ejecute este código( es lo mismo si no que cambia a lo que estado agregando 70, al 70 ahora le estan restando y viceversa):

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   with SpinEdit1 do
  begin
    MinValue:= 1;
    MaxValue:= 32;
    Increment:= 1;
    OnChange:= SpinAndEditChange;
  end;

  Edit2.OnChange:= SpinAndEditChange;
end;

procedure TForm1.SpinAndEditChange(Sender: TObject);
var                                                    //
 opcion: integer;
begin                                                 //
 opcion:= StrToInt(SpinEdit1.Text);

 case opcion of
  1: begin
    Edit3.Text := FloatToStr(70 - 0.2 * StrToFloatDef(Edit2.Text,0));
  end;
  2: begin
    Edit3.Text := FloatToStr(70 - 0.35 * StrToFloatDef(Edit2.Text,0));
  end;
    3: begin
    Edit3.Text := FloatToStr(70 - 0.5 * StrToFloatDef(Edit2.Text,0));
  end;
    4: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    5: begin
    Edit3.Text := FloatToStr(70 - 0.68 * StrToFloatDef(Edit2.Text,0));
  end;
    6: begin
    Edit3.Text := FloatToStr(70 - 0.7 * StrToFloatDef(Edit2.Text,0));
  end;
    7: begin
    Edit3.Text := FloatToStr(70 - 0.7 * StrToFloatDef(Edit2.Text,0));
  end;
    8: begin
    Edit3.Text := FloatToStr(70 - 0.7 * StrToFloatDef(Edit2.Text,0));
  end;
    9: begin
    Edit3.Text := FloatToStr(70 - 0.68 * StrToFloatDef(Edit2.Text,0));
  end;
    10: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    11: begin
    Edit3.Text := FloatToStr(70 - 0.5 * StrToFloatDef(Edit2.Text,0));
  end;
    12: begin
    Edit3.Text := FloatToStr(70 - 0.35 * StrToFloatDef(Edit2.Text,0));
  end;
    13: begin
    Edit3.Text := FloatToStr(70 - 0.25 * StrToFloatDef(Edit2.Text,0));
  end;
    14: begin
    Edit3.Text := FloatToStr(70 - 0.15 * StrToFloatDef(Edit2.Text,0));
  end;
    15: begin
    Edit3.Text := FloatToStr(70 - 0.05 * StrToFloatDef(Edit2.Text,0));
  end;
    16: begin
    Edit3.Text := FloatToStr(0.15 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    17: begin
    Edit3.Text := FloatToStr(0.2 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    18: begin
    Edit3.Text := FloatToStr(0.25 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    19: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    20: begin
    Edit3.Text := FloatToStr(0.55 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    21: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    22: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    23: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    24: begin
    Edit3.Text := FloatToStr( 0.65 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    25: begin
    Edit3.Text := FloatToStr(0.67 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    26: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    27: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    28: begin
    Edit3.Text := FloatToStr(0.45 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    29: begin
    Edit3.Text := FloatToStr(0.28 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    30: begin
    Edit3.Text := FloatToStr(0.18 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    31: begin
    Edit3.Text := FloatToStr(0.1 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    32: begin
    Edit3.Text := FloatToStr(70 - 0.1 * StrToFloatDef(Edit2.Text,0));
  end;


 end;  //

end;
end.