Ports auflisten und beenden !?

[Äfan]

Mhhh ok, hab da aber nicht viel sinnvolles gefunden. Habe es jetzt mit Indys TCP probiert und den code von nem Socket beispiel abgeleitet, funzt aber nicht, da kommt ein socket fehler. Kann sich vllt. jemand den code anschauen und in berichtigen ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  for i := 1 to 9999 do
  begin
  Idtcpclient1.Port := i;
  Idtcpclient1.Connect;
  if Idtcpclient1.Connected = true then
  begin
    Listbox1.Items.Add(inttostr(Idtcpclient1.Port));
  end;
  Idtcpclient1.Disconnect;
  end;
end;

thx