Probar conexión a Firebird

[[mlara]]

Terminé usando el componente MDOServerProperties. Después de fijar sus parámetros:

try
  try
    Active := True;
    Application.MessageBox('Prueba de conexión exitosa!', 'Información', mb_Ok);
  except
    on E: Exception do begin
      Application.MessageBox(PAnsiChar('Prueba de conexión no exitosa!'#13#10#10'Mensaje del sistema:'#13#10#10+E.Message), 'Información', mb_Ok);
    end
  end
finally
  Active := False;
end