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