uses     ComObj;      
     
  function     CreateDatabase(mDatabaseName:     string):     Boolean;      
  var      
        CreateAccess:     OLEVariant;      
  begin      
        Result     :=     False;      
        try      
                CreateAccess     :=     CreateOleObject(''ADOX.Catalog'');      
                try      
                        CreateAccess.Create(Format(      
  ''Provider=Microsoft.Jet.OLEDB.4.0;Data     Source=%s%s.mdb'',      
                        [ExtractFilePath(Application.ExeName),     mDatabaseName]));      
                finally      
                        CreateAccess     :=     Unassigned;      
                end;      
        except      
                Exit;      
        end;      
        Result     :=     True;      
  end;      
     
  function     CreateTable(mDatabaseName:     string;     mADOQuery:     TADOQuery):     Boolean;      
  begin