[marcost]

prueba esto

function ServidorDisponible (connection : TADOConnection) : Boolean;
begin
	 try
		connection.Open;
		result := True;
	 except
		   Result := False;
	 end;
end;