Source position: ratingbar.pas line 15
type TOnRatingChanged = procedure(
Sender: TObject;
rating: single
) of object;