[Paoti]

Hola...

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

haciendo una variacion al codigo de marcost:

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

y este codigo agregalo a un action list.... y en el evento ONIDLE... un action por cada servidor....

esto lo comprobaria a cada momento....

bueno nadama seria el connection.connected ( u otra porpiedad que mustre el estado de si esta conectado o no, no la recuerdo y no tengo delphi a la mano)


espero hbaer ayuado un poco