Source position: spinner.pas line 12
type TOnItemSelected = procedure(
Sender: TObject;
itemCaption: string;
itemIndex: Integer
) of object;