TrackBar und richtige Position setzen

[Mazel]

Hallo,

Ich habe mir die TrackBar Komponente mit den MouseDown und MouseUp Ereignissen geladen. Dies TrackBar dient mir dazu um die Song Position zu setzen. Diese funktioniert aber ich bekomme keine genauen Positionen. Es wird zu stark gerundet.

Vorher hatte ich es mit WndProc versucht:

Delphi-Quellcode:

rocedure TForm1.WndProc(var Msg: TMessage);
var
 Pos: TPoint;

begin
 If Msg.Msg = WM_LBUTTONDOWN then
  begin
   Pos:=Mouse.CursorPos;
   If SoundObject <> nil then  //wenn ein Song abgespielt wird
    begin
     If (Pos.Y >= TrackBar.Top + 7) and (Pos.Y <= TrackBar.Top + 13) then
      begin
       //hier kommt der Code zum setzen der Position im Song
      end;
    end;
  end;
 inherited;
end;

Wie kann ich die Position genau setzen?

Gruß
Mazel