IdHTTP funcionando continuamente

Tenho de atualizacao automatica que roda com tryIcone , fica em >>execucao o dia inteiro , notei um erro no IdHTTP , que mais primeiras >>vezes funciona legal , com tempo ele apresenta erro


O erro so aconte com o IdHTTPVersao ( busca a versao) o IdHTTP_Download (Faz o download )sempre funciona bem .

colqoue dois HTTP por achar que o erro estava na sobrecarga do componente para duas funçoes distintas.


A messagem de erro e : [b:79f37dcfc9]socket error # 11004[/b:79f37dcfc9]

>>veja o pedaço de codigo que utlizacao o componente



>>function VerificaVersao ( mNomeArquivo , mVersaoInstalada : string ) :
>>begin
>>mVersaoAtual := IdHTTPVersao.Get(URL + ´ListaVersao.asp?NomeArquivo=´+ mNomeArquivo ) ;
>>if IdHTTPVersao.Connected then
>>IdHTTPVersao.Disconnect ;

>>if mVersaoInstalada < mVersaoAtual then
>>begin
>>result := true ;
>>AutalizaVersao( ´http://www.supernova.com.br/atualizacao/´+mNomeArquivo , ´c:\atualizacao\´ +mNomeArquivo ) ;

>>end
>>else
>>begin

>>result := true ;

>>end;


>>function TFormAtualizador.AutalizaVersao(RemoteFile, LocalFile: String): Boolean;
>>var
>>fs: TFileStream;
>>begin
>>fs:= TFileStream.Create(LocalFile, fmCreate);
>>try
>>try
>>IdHTTP_Download.Get(RemoteFile,fs);
>>result:= True;
>>except
>>on e: exception do
>>begin
>>if pos(´not found´,AnsiLowerCase(e.message)) > 0 then
>>LogErros(´O arquivo : ´´ + RemoteFile + ´´ não foi encontrado no servidor remoto.´) ;

>>end;
>>end;
>>finally
>>fs.free;
>>IdHTTP_Download.Disconnect;
>>end;

>>end;