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:
Código:
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.