[DELPHI6] TIdHTTPServer et port libre

Bonjour,

Je souhaiterais démarrer un mini serveur web (TIdHTTPServer) avec un port libre sur ma machine plutôt qu'un port prédéfini.
(En fait il y aura plusieurs mini serveurs web sur ma machine)

Comment puis-je m'y prendre ?

Ou comment obtenir un numéro de port libre pour mon serveur ?

(Le client sait comment résoudre le port du serveur)

Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

var testPort: TIdHttp; newPort: integer; bTest: boolean; begin   testPort := TIdHttp.Create(self); newPort := 5000;   repeat inc(newPort);   testPort.Port := newPort; testPort.Host := '127.0.0.1'; try testPort.Connect(50); bTest := False; testPort.Disconnect; except bTest := True; end; until bTest;   FreeAndNil(testPort);

---