Явных ошибок в коде нет, единственное, опрашиваются не все сообщения от TrackBar-ов.
Код:
case LoWord(wParam) of
TB_PAGEUP, TB_LINEUP, TB_LINEDOWN, TB_PAGEDOWN, TB_TOP,
TB_BOTTOM, TB_ENDTRACK, TB_THUMBPOSITION, TB_THUMBTRACK:
begin
Хотя нет, ошибка всё же есть. Tb1ID судя по всему ID трекбара, а должен быть хендл.