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