code richtig???

[Remote1]

Delphi-Quellcode:

    for i:=spinedit1.Value to spinedit2.Value do
     begin
      try
       if (GetAsyncKeystate(VK_ESCAPE)) <> 0 then
        begin
         gauge2.Progress:=0;
         label3.Visible:=false;
         exit;
        end;
       gauge2.Progress:=i;
       TcpClient1.RemotePort:=inttostr(i);
       if TcpClient1.Connected
        then
         begin
          TcpClient1.Disconnect;
         end
        else
         begin
          TcpClient1.Disconnect;
          listbox1.Items.Add('Port ' + inttostr(i) + ' ist geschlossen');
         end;
       application.ProcessMessages;
      except
       application.ProcessMessages;
       TcpClient1.Disconnect;
       listbox1.Items.Add('Port ' + inttostr(i) + ' ist geschlossen');
      end;
     end;

ich hab mir den sorce gebastelt um die ports zu prüfen, ob sie offen sind, aber ich bekomme immer die meldung, dass alle ports geschlossen sind, obwohl ich keine portblocker hab

hab komplettes projekt mal mit angefügt --> ist natürlich nur testversion (noch nicht ausgereift)