[YVitaliy]

событие onChange есть

Как вариант.

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
var GlobalPos,LocalPos:TPoint;
begin
  GetCursorPos(GlobalPos);
  LocalPos:=TrackBar1.ScreenToClient(GlobalPos);
  TrackBar1.Position:=round((trackBar1.Max/(trackBar1.Width-28))*(LocalPos.X-14));
end;