When SP_Search is TAdoStoredProc and has the OnAfterScroll property, all you have to do is:
SP_Search.OnAfterScroll := SP_SearchAfterScroll;
, SP_SearchAfterScroll. OnAfterScroll , :
TScrollEvent = procedure(DataSet: TDataSet) of object;
OnAfterScroll , , , SP_SearchAfterScroll .
Edit
SP_Search.AfterScroll :=
SP_SearchAfterScroll(SPSearch)' , TNotifyEvent . SP_Search.AfterScroll :=
SP_SearchAfterScroll, . ?
, Mikey , () :
SP_Search.AfterScroll := - SP_SearchAfterScroll " ", , . , - , . , , , , . , , , .