كود او أمر للخروج من ال لووب loop ؟

[AL-MOB4RM3G]

السلام عليكم ورحمة الله

اخوآني الكرآم,,

هل هناك كود للخروج من اللّوب الذي انا فيه ممكن اضعه في الكود ؟ بارك الله لكم

مثآل على ما اقصد,,

هذا الكود,,

PHP كود :

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
  NewConIP: String;
  ListItemNum: Integer;
begin                                            // Begin The Main Procedure
ListItemNum := 0;                                // Reset Listbox Item to 0
NewConIP:= AContext.Binding.PeerIP;              // Get Client IP

for ListItemNum := 0 to Listbox1.Count - 1 do    // Begin loop to lisbox1.count - 1 (all connected Clients Ip:is)
begin
  if listbox1.Items[ListItemNum] = NewConIp then        // if the text of listbox items = new Connection ip then
  begin                                                 // Begin the first IF Sentence
    exit;                                               // if the ip was in the listbox then exit the loop;
  end                                                   // End First IF Sentence
    else
  begin

  end;
end;                                            // End the Loop

ListBox1.Items.Add(AContext.Binding.PeerIP);
end;                                             // End The Main Procedure 


هل الأمر exit يخرجني من الّوب ويتم تنفيذ الأمر

PHP كود :

ListBox1.Items.Add(AContext.Binding.PeerIP); 


اتذكر كان هناك موضوع في المنتدى عن ذلك والله اعلم لكن لم اجده ولله المستعان,

بارك الله لكم وجزآك خيرا,,

والسلام عليكم ورحمة الله