ProgresBar для загрузки из ADOStoredProcedure

[Lui]

Как повесить progress bar на визуализацию загрузки данных из ADO strored procedure

Я делал так, но валятся ошибки,.......
Ставил свойсто, ADO strored procedure
Executeoptions=[eoAsyncExecute,eoAsyncFetch]

и

PHP код:

void __fastcall TForm1::SPHistoryOperationFetchProgress(
      TCustomADODataSet *DataSet, int Progress, int MaxProgress,
      TEventStatus &EventStatus)
{
      HistoryBar->Max=  MaxProgress;
     HistoryBar->Position=Progress;
} 


Но чтото не работает........Как это правильно делать?????