[YVitaliy]

Пожалуйста. Типа так? :

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
var GlobalPos,LocalPos:TPoint;
begin
 //для доступа к процедуре  GetCursorPos нужно подключить модуль QControls
  GetCursorPos(GlobalPos);//Получаем глобальные координаты курсора(на весь экран)
  LocalPos:=TrackBar1.ScreenToClient(GlobalPos);//переводим глобальные координаты в область компонента
  TrackBar1.Position:=round((trackBar1.Max/(trackBar1.Width-28))*(LocalPos.X-14));//
//trackBar1.Max/trackBar1.Width - значение, соответствующее сдвигу  "позиции" трэкбара при сдвиге на 1 пиксель
//(trackBar1.Max/trackBar1.Width)*LocalPos.X - умножаем это значение на количество пикселей сдвига (позиция X мыши)
// значения 28, 12 - взяты из потолка, это компенсация отступов от края трэкбара до начала отсчета)
end;