[lmikle]

Ну хорошо. Предположим, что во время проигрывания у нас позиция трекбара обновляется по таймеру... Вот обработчик таймера:

Код:

procedure TForm1.Timer1Timer(Sender :TObject);
begin
  // Отключаем обработчик
  TrackBar1.OnChange := Nil;

  // Далее делаем свои действия
  TrackBar1.Position := Random(100); // ну или что там у него

  // возвращаем обработчик
  TrackBar1.OnChange := TrackBar1Change;
end;