Source position: sqlitedb.pas line 14
type TOnBusy = procedure(
Sender: TObject;
ObjectName: string;
BusyCount: Integer;
var Cancel: Boolean
) of object;