TrackBar con rango ??

[NeoNew]

Gracias Marcos, Mira mas o menos lo que quiero es que al arrastar el Thumb del TrackBar me deje pintada la seleccion, y guardar el SelStart y el SelEnd;
Lo que tengo es lo siguiente, pero quiero que al volver a arrastra el Thumb (mouse) me seleccione de nuevo sin utilizar el Tboton;
Por eso deseo si se puede al presionar el Thumb(mouse) tomar el SelStart, arrastar y al soltar el Thumb(mouse) tomar el SelEnd;

(1 TButton, 1 TTrackBar y 2 TEdit)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  TrackBar1.SelStart := 0;
  TrackBar1.SelEnd := 0;
end;

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

procedure TForm1.TrackBar1Enter(Sender: TObject);
begin
  TrackBar1.SelStart := TrackBar1.Position;
  Edit1.Text := IntToStr(TrackBar1.Position);
end;

Oto Saludo...