trackbar con numeros reales

[marcoszorrilla]

El fallo está en el edit.Change.

Lo he arreglado, se puede optimizar el código pero aquí te pongo el resultado, te dejo para ti perfeccionarlo, nos cuentas como te queda:

 procedure TForm1.Edit1Change(Sender: TObject);
 var
 numero:Double;
 sNumero:String;
 nFinal:Integer;
 begin
 Numero:=StrToFloat(Edit1.Text);
 Numero:= Numero * 10;
 sNumero:=FormatFloat('0',Numero);
 nFinal:=StrToInt(sNumero);
 LMDTrackBar1.Position:=nFinal;
 ganancia := LMDTrackBar1.Position;
 end;

Un Saudo.