Unit: dbisamtb

TDataLostEvent = procedure (Sender: TObject; Cause:
      TDataLossCause; const ContextInfo: String; var Continue: Boolean;
       var StopAsking: Boolean) of object

This type is used for the TDBISAMTable and TDBISAMQuery OnDataLost event.