Fórum Descobrindo se o FB esta conectado! #51505

function ServerIsRunning(AHost: String; APort: Integer):Boolean;
begin
 with TIdTCPClient.Create(Nil) do
   begin
     Host := AHost;
     Port := APort;
     Result := True;
     try
       Connect;
       Disconnect;
     except
       Result := False;
     end;
     Free;
 end;
end;