TServerSocket: Abfrage von RemoteHost stoppt Programm

[Helmi]

Hallo,

ich hab seit neuersten ein Problem mit "RemoteHost von TServerSocket.

erst mal Code:

Delphi-Quellcode:

procedure TMainForm.ComboBox_ClientSelect(Sender: TObject);
var
  i, i_Item: Integer;
  S_Item: String;

begin
  //Variable leeren
  ausgewaehlter_Client := -1;

  //Text im ausgewähltem ComboBox-Eintrag auslesen
  i_Item := ComboBox_Client.ItemIndex;
  S_Item := ComboBox_Client.Items.Strings[I_Item];

  with ServerSocket.Socket do
    begin
      If i_Item > 0 then
        for i := 0 to Pred(ActiveConnections) do
          If Connections[i].RemoteHost = S_Item then  //<<--hier wird gebremst
            begin
              //Wenn Name gefunden wurde, dann Variable beschreiben
              ausgewaehlter_Client := i;
              break;
            end;
      { ...}

    end;
end;

Wie man sieht, wird aus einer ComboBox der ausgewählte String in S_Item geschrieben und in der Schleife mit RemoteHost verglichen.
Und nun ist mir aufgefallen, dass in dieser Abfrage das Programm stoppt - richtig hängenbleibt für ein paar Sekunden.

Leider brauch ich diese Abfrage.
Weiss jemand, warum diese Abfrage stoppt und wie ich es umgehen kann?

Falls es jemanden interessiert: Die Variable "ausgewaehlter_Client" ist vom Typ Integer