Source position: sqlite3db.pas line 20
type TOnBusy = procedure(
Sender: TObject;
BusyCount: Integer;
var Cancel: Boolean
) of object;