procedure TForm1.FormCreate(Sender: TObject);
begin
Trackbar1.SelStart:=0;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
TrackBar1.SelEnd:=TrackBar1.Position;
end;