uses comobj,sysutils; 

function CreateAccessDatabase(FileName: string): string;
var cat: OLEVariant;
begin
  result := '';
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');
    cat := NULL;
  except
    on e: Exception do result := e.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;