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.