método post error timeout

[petete2008]

Hola , tengo el siguiente codigo

function PostExample: string; 
var   lHTTP: TIdHTTP;   lParamList: TStringList; 
begin   lParamList := TStringList.Create;   
lParamList.Add('id=1');    
lHTTP := TIdHTTP.Create(nil);   
try     
Result := lHTTP.Post('http://blahblahblah...', lParamList);   
finally    
 lHTTP.Free;    
 lParamList.Free;  
 end; 
end;

Mi problema es que a veces funciona y otras veces. Las veces que no funciona me devuelve el siguiente mensaje :

Error encountered during POST: Socket Error #10060
Connection time out

Mi pregunta es si sería posible de una forma sencilla hacer que lo vuelva a reintentar pasado por ejemplo 10 segundos y así sucesivamente con 10 intentos por ejemplos.
Y pasado todo esto si sigue devolviendo error entonces mostrar un error y salir del programa.

Gracias.