すみません。インデント忘れました。

TListBoxEx = class(TListBox)
　private
　　FOnChangeItemIndex: TNotifyEvent;
　protected
　　procedure SetItemIndex(const Value: Integer); override;
　published
　　property OnChangeItemIndex: TNotifyEvent read FOnChangeItemIndex write FOnChangeItemIndex;
end;


procedure TListBoxEx.SetItemIndex(const Value: Integer);
begin
　inherited;
　OnChangeItemIndex(Self);
end;