calculadora Convergente de numero

[ecfisa]

pero quiero que ese 1 = 1.0625
el 2 = 1.375
3 = 1.875
4 = 2.625

Hola.

Entonces según entiendo, la función del valor de Edit2 sería la de un índice para acceder a otro valor.

Podrías hacer algo así:

Código Delphi [-]
...
implentation
var
  TS: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TS:= TStringList.Create;
  TS.Add('1,0625');  
  TS.Add('1,375');
  TS.Add('1,875');
  TS.Add('2,625'); 
  // el resto de los valores
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(TS[StrToInt(Edit2.Text)-1]));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TS.Free;
end;

Saludos.

[olbeup]

Espero que esto se lo que estas buscando

Código Delphi [-]
...
var
  EQ: Extended;     // Valor Equivalente 1..9
  E1, E2: Integer;  // Edit, 1..2
  E3: Extended;     // Edit3
begin
  E1 := StrToInt(Edit1.Text);
  E2 := StrToInt(Edit2.Text);
  case E2 of
    1: EQ := 1.0625;
    2: EQ := 1.375;
    3: EQ := 1.875;
    4: EQ := 2.625;
    5: EQ := 3.625;
    6: EQ := 4.875;
    7: EQ := 6.375;
    8: EQ := 8.125;
    9: EQ := 10.125;
  end;

  E3 := (E1 * EQ);

  Edit3.Text := FormatFloat('0.0000', E3);
end;

Un saludo.