كيف امحي بنود معينة من listbox

[jeanjamil]

السلام عليكم

كود :

  with listbox1.Items do begin   FoundIndex := IndexOf('Pepsi cola');     if FoundIndex > -1 then       Delete(FoundIndex)   end;

هذا الكود يمحي 'pepsi cola'  من اللائحة 
السؤال:
كيف امحي كل المشروبات من اللائحة والابقاء على المواد الاخرى

[kachwahed]

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

PHP كود :

var
  FoundIndex, I: Integer;
  DrinksToDelete: TStringList;
begin
  DrinksToDelete := TStringList.Create;
  try
    DrinksToDelete.Add('Hamoud Boualem');
    DrinksToDelete.Add('Ngaoues');
    DrinksToDelete.Add('Rouiba');
    DrinksToDelete.Add('Pepsi cola');
    //...
  for I := 0 to DrinksToDelete.Count - 1 do begin
    FoundIndex := listbox1.Items.IndexOf(DrinksToDelete[I]);
      if FoundIndex > -1 then
        listbox1.Items.Delete(FoundIndex);
  end;
  finally
    DrinksToDelete.Free;
  end;
end;