var
  db: TDataBase;
begin
  db := Session.FindDatabase(FDataBaseName);
  db.StartTransaction;