Bonjour a tous , Est bonne années

Me voila confronté a un petit problème pour contrôler plus de 1 000 000 D’URL avec la fonction ci dessous, Je vous laisse imaginer le temps que sa prend de tout contrôlé .
Donc je me demander si il existé une autre méthode pour traité le contrôle des URL un peu plus vite.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CheckUrl(Url: String): Boolean;
var
 CtrlUrl: TIdHTTP;
begin
  Result := False;
  CtrlUrl := TIdHTTP.Create(nil);
  try
   CtrlUrl.Get(Url);
   Result := True;
  except
    Result := False;
  end;
FreeAndNil(CtrlUrl);
end;

Un grand merci pour votre réponse est votre aide.