TrackBar und richtige Position setzen

[arbu man]

Ich würde es so machen:

Code:

procedure Timer 
begin
  if aus then exit;
  trackbar.position := getposition;
end;

procedure mousedown
begin
  aus:=true;
end;

procedure mouseup
begin
  aus:=false;
  song.position := trackbar.position;
end;