Progressbar Position per Maus verändern

[divBy0]

Müsste so gehen:

Delphi-Quellcode:

procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  MouseX: Integer;
begin
  MouseX := round(X / (ProgressBar1.Width / 100.0)); // -> oder anstatt 100.0 ProgressBar1.Max

  ProgressBar1.Position := MouseX;
end;