metodo POST delphi INDY reintentar si se produce socket error

[OssoH]

Hola :
Quiero saber cual es la mejor forma de volver a reintentar una llamada POST en el caso que se produzca un error (socket error).

un ejemplo

Código [Seleccionar] Expandir


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
   FreeAndNil(lHTTP);
   FreeAndNil(lParamList);
 end;
end;


La idea básicamente es...que si se produce un error en la llamada ihttp.post que espere por ejemplo 3 segundos y lo vuelva a intentar de nuevo. Asi sucesivamente hasta 5 intentos.

Gracias