ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Data Source='edfilename.Text+'.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False';

Procedure CreateMSAccessDatabase(filename : String);
var DAO: Variant;
    i:integer;
Const Engines:array[ 0 .. 2 ] of string=('DAO.DBEngine.36', 'DAO.DBEngine.35', 'DAO.DBEngine');

    Function CheckClass(OLEClassName:string):boolean;
    var Res: HResult;
    begin
      Result:=CoCreateInstance(ProgIDToClassID(OLEClassName), nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IDispatch, Res)=S_OK;
    end;
begin
 For i:= 0  to  2  do
   if CheckClass(Engines[i]) then
     begin
       DAO := CreateOleObject(Engines[i]);
       DAO.Workspaces[ 0 ].CreateDatabase(filename, ';LANGID=0x0409;CP=1252;COUNTRY=0',  32 );
       exit;
     end;

 Raise Exception.Create('DAO engine could not be initialized');
end;
.........
 CreateMSAccessDatabase(apl_path+senddb+edfilename.Text+'.mdb');

 ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Data Source='+apl_path+senddb+edfilename.Text+'.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False';
 ADOConnection1.Connected:=true;

CREATE TABLE UR_DIC_DELO_SOST ( 
  fID       INTEGER    NOT NULL, 
 fOWNER		INTEGER,
  fNAME     TEXT , 
  fDELETED  INTEGER    , 
  fDATA     DATE) 

CREATE TABLE UR_DIC_IL_SOST ( 
  fID       INTEGER    NOT NULL, 
 fOWNER		INTEGER,
  fNAME     TEXT , 
  fDELETED  INTEGER    , 
  fDATA     DATE) 
и т.д.

procedure RunSQL(q:TADOquery;close:boolean);
begin
      try
        q.Open;
      except
        on EOleException do q.Active:=false;
        on EDatabaseError do q.Active:=false;
      end;
     if close then q.Active:=false;
end;
...........

     RunSQL(aqMDB,true);