Source position: lcltype.pp line 87
type TOnShowSelectItemDialogResult = procedure(
ASelectedItem: Integer
) of object;