Developing.ru

Пожалуйста подскажите св-во , которое при перемещении ползунка выделяет часть компонента TrackBar от его начальной позиции до текущего положения ползунка.
Пожалуйста, все работает, а вот это не хочет....

[syntax='Delphi']
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Trackbar1.SelStart:=Trackbar1.Min;
Trackbar1.SelEnd:=Trackbar1.Position;
end;
[/syntax]