Да какой там исходник, вот весь код:
Код:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Edit1.Text := Format('%.1f', [TrackBar1.Position / 10]);
end;
настройки min и max по-умолчанию, то есть 1 и 10, плюс первоначально выставлен 0 в Edit-е. Работает одинаково, что в 7-ке, что в XE2.
Выделенная 1, чтобы не выводился лишний 0.
Дополнительно: если в TrackBar-е, Max = 10, то приведённого кода достаточно. Но лучше делить на TrackBar.Max и, возможно убрать 1 из '%1f'. Также, обязательно использовать символ /, не div.