Si puedes hacerlo con un edit normal, con el CurrencyEdit, será mucho mas fácil y estético.
Código:
procedure TForm1.Edit3Change(Sender: TObject);
begin
LMDTrackBar1.Position:=Trunc(StrToFloatDef(edit3.text, LMDTrackBar1.Position div 10)*10);
ganancia := LMDTrackBar1.Position div 10;
end;
Creo que en las últimas versiones de Delphi, apareció la funcion StrToFloatDef, yo trabajo en Delphi 5 así que no te lo puedo confirmar.
Román:
Saludos!