Is there a possibility that you'll might add a new event in TsTrackBar called “OnChanging”. TRzTrackBar has this event and it is very handy. The event code is:
procedure TForm1.RzTrackBar1Changing(Sender: TObject; NewPos: Integer; var AllowChange: Boolean);