Как создать *mdb файл

procedure TForm1.Button1Click(Sender: TObject);
begin
 IF SaveDialog1.Execute THEN
  Memo1.Lines.SaveToFile(SaveDialog1.filename)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  AdoEngine: Variant;
begin
  if not FileExists('c:\Base.Mdb') then begin
    try
      AdoEngine:= CreateOleObject('ADOX.Catalog');
      AdoEngine.Create('Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\Base.Mdb; Jet OLEDB:Engine Type=5;');
 
      AdoEngine.ActiveConnection.Close;
      AdoEngine:= Null;
    except on E:Exception do
      ShowMessage( E.Message );
    end;
  end
  else begin
    ShowMessage( 'Файл существует' );
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AdoCommand1.CommandText :=
'CREATE TABLE MyTable (id integer, Pole1 varchar(20))';
ADOCommand1.Execute;
end;

try
  CreateMSAccess('db.mdb');
  ADOConnection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(paramstr(0))+'db.mdb;Mode=ReadWrite;Persist Security Info=False';
  ADOConnection.Connected:=true;
  ADOQuery.SQL.Text:='CREATE TABLE FilmByKolection (Namber long PRIMARY KEY, Film VARCHAR(40),Size_Mb long, NamderOfDisk long, Koment VARCHAR(23), Osenka VARCHAR(8), Genre VARCHAR(20));';
  ADOQuery.Active:=true;
 except end;

procedure TMainForm.CreateMSAccess(filename : String);
var
  DBEngine, Workspace: Variant;
const
  dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
  dbVersion30 = 32;
begin
  try
    try
    DBEngine := CreateOleObject('DAO.DBEngine.36');
    except
      try
      DBEngine := CreateOleObject('DAO.DBEngine.35');
      except
        raise;
      end;
    end;
    Workspace := DBEngine.Workspaces[0];
    try
      Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30);
    except on e0: EOleException do
        ShowMessage(e0.Message);
    end;
  except on e1: EOleException do
      ShowMessage(e1.Message);
  end;
end;

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  CreateAccessDatabase('000.mdb');
  ADOConnection1.Connected := False;
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=000.mdb;Persist Security Info=False';
  ADOConnection1.Connected := True;
  Query.Connection := ADOConnection1;
  Query.Close;
  Query.SQL.Text := 'CREATE TABLE Table1 (`Id` COUNTER, `File` STRING (200),`Num` INT, `Path` STRING (200))';
  Query.ExecSQL;
  ShowMessage('Готово');
end;