Проверка наличия интернета через прокси сервер.

[Crunkordie]

Здравствуйте. Есть код:

function CheckInternetConnection(Host: string='google.com'; Port: integer=80; Timeout: integer=1000): boolean;
  var TCP: TIdTCPClient;
begin
  TCP:=TIdTCPClient.Create(nil);
  try
    TCP.Host:=Host;
    TCP.Port:=Port;
    TCP.ConnectTimeout:=Timeout;
    try
      TCP.Connect;
      Result:=TCP.Connected;
    except
      Result:=false;
    end;
  finally
    TCP.Free;
  end;
end;

Функция возвращает true или false в зависимости от наличия интернета. Возникла необходимость проверки наличия интернета через прокси. Как можно это реализовать?