Hola darkamerico,
Prueba con esto yo lo uso así en PostgreSQL, solo cambia algunas cositas y devería funcionar, suerte...
Código Delphi
[-]var
List: TStringList;
i :string;
posicion :integer;
comprobacion :boolean;
begin
with UniConnection1 do
begin
Connected := False;
ProviderName := 'PostgreSQL';
UserName := 'postgres';
Password := '1234';
Server := '127.0.0.1';
Port := 5432;
LoginPrompt := False;
List := TStringList.Create;
try
GetDatabaseNames(List);
posicion := 0;
List.Sort;
comprobacion := List.Find('MyBasedeDatos',posicion);
if comprobacion = True then
MessageBox(0,'Base de datos encontrada','Mensaje', MB_ICONINFORMATION or MB_OK)
else
MessageBox(0,'La base de datos indicada no existe','Mensaje', MB_ICONSTOP or MB_OK);
finally
List.Free;
end;
end;