If your code is really like this, then you can simply delete line 3 - nothing will change.
Procedure TSlideBox.DoRun; Begin TRect.Create(FBackRect, True); With FBackRect Do Begin Left:=8; Top:=152; Width:=618; OnPaint:=@BackRectOnPaint; End; End;
... forget about OnClick, simply use Click
I'm trying to create a TrackBar with two sliders.I thought about how I would implement such a thing, and the attached test program and unit might give you some ideas.