Crear bases de datos con objeto

[[coso]]

Código Delphi [-]
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;

al final creo que usare esta...son los mismos componentes del ADO del delphi? alguien lo sabe?