Unit
IBDataset

Declaration

TIBODatasetFetchCallback = procedure(     ADataset: TDataset;
                                          Status: TIB_CallbackStatus;
                                          CursorRowNum: longint;
                                      var Abort: boolean ) of object;