Unit: dbisamtb

TTimeoutEvent = procedure (Sender: TObject; var StayConnected:
      Boolean) of object

This type is used for the TDBISAMSession OnRemoteTimeout event.