Te recomiendo, en lugar de usar un TEdit, utilizar un TCurrencyEdit de las RxLibs, y en ese caso:
Código:
procedure TForm1.Edit3Change(Sender: TObject);
begin
LMDTrackBar1.Position:= Trunc(Edit3.Value*10);
ganancia := LMDTrackBar1.Position div 10;
end;
Saludos!