Fórum Codigo para baixar arquivo de atualizacao nao baixa em windows xp. #594494

Ola!
Tenho este codigo aqui para baixar uma atualização do servidor e ele funciona no computador de desenvolvimento que tem uma configuracao boa e rodando windows 10 so que em um computador mais antigo com windows xp ele nao checa nada e da erro de timeout.

codigo:

procedure TfrmUpdate.BaixarAtualizacao;
begin
try
Baixando := True;
if FileExists(ObterDiretorioDoExecutavel + 'Receitas_Backup.exe') then
DeleteFile(ObterDiretorioDoExecutavel + 'Receitas_Backup.exe');
// obtém o tamanho da atualização e preenche a variável "FnTamanhoTotal"
FnTamanhoTotal := IdFTP1.Size('public_html/SOFTWARES/RECEITAS/receitas.exe');
//Renomeia executavel
RenameFile(ObterDiretorioDoExecutavel + 'Receitas.exe',ObterDiretorioDoExecutavel + 'Receitas_Backup.exe');
// faz o download do arquivo "Atualizacao.rar"
IdFTP1.Get('public_html/SOFTWARES/RECEITAS/receitas.exe',ObterDiretorioDoExecutavel + 'receitas.exe', True, True);
except
On E:Exception do
begin
// ignora a exceção "Connection Closed Gracefully"
if E is EIdConnClosedGracefully then
Exit;

ShowMessage('Erro ao baixar a atualização: ' + E.Message);
RzBitBtn1.Enabled := True;
RzBitBtn2.Enabled := True;
RzBitBtn1.Caption := 'Checar Atualizações';

// interrompe a atualização
Abort;
end;
end;
end;

o que devo fazer?

obrigado