деление и вывод в Label1.Caption

[~Psycho~]

trackbar1.max := 1000, но при выводе на Label1.Caption нужно, чтобы результат был равен 100.
Понимаю, что 1000/10 = 100, но изобразить это в коде ни в какую не получается((( кто что посоветует?

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Label1.Caption := inttostr(0+TrackBar1.Position);
end;

[asmodey1]

Немного не так вы делаете...

Label1.Caption:=IntToStr(Round(TrackBar1.Position/10));

[~Psycho~]

оп))) Спасибо огромное)))

[chertovich]

Немного не так вы делаете...

Label1.Caption:=IntToStr(TrackBar1.Position div 10));