Comprobar si existe una BD

[darkamerico]

Gracias a todos por responder, lo que estoy implementando son unos indicadores gráficos en el formulario de login que me indican :
1. Si el servidor mysql esta On/Off

Lo que quería era agregar otro indicador grafico que este en verde si la BD se encuentra presente en el servidor mysql. Por eso, mi preocupación era de que forma utilizar las funciones de verificación en el OnActivate() del formulario de Login, como lo hice con el primer indicador:

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  if(TestMySQLServer('127.0.0.1',3306)) then
    statusServer.Active:=true
  else
    statusServer.Active:=false;
end;

donde TestMySQLServer es:

Código Delphi [-]
function TForm1.TestMySQLServer(ipAddressStr:AnsiString; dwPort : Word):boolean;
var
 client : sockaddr_in;
 sock : Integer;
 ret : Integer;
 wsdata : WSAData;

begin
 Result:=False;
 ret := WSAStartup($0002, wsdata); //Inicializa Winsock
 if ret<>0 then exit;
 try
 client.sin_family := AF_INET; //Establece el protocolo a usar en este caso (IPv4)
 client.sin_port := htons(dwPort);
 client.sin_addr.s_addr := inet_addr(PAnsiChar(ipAddressStr));
 sock :=socket(AF_INET, SOCK_STREAM, 0); //crea un socket
 Result:=connect(sock,client,SizeOf(client))=0; //Estable conexión con un socket
 finally
 WSACleanup;
 end;
end;

Si trato de usar un método de UniConnection es posible que aun no haya sido creado en ese momento y obtenga error.

Agradeceria luces en este sentido. Muchas gracias.