ProgressBar jak TrackBar

Witam , w jaki sposób mogę zrobić jakby regulowany ProgressBar który będzie pełnił rolę taką jak TrackBar

Dziękuje

procedure TForm1.FormCreate(Sender: TObject);
begin
 ProgressBar1.Max := ProgressBar1.Width;
end;

procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ProgressBar1.Position := X;
end;