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

[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;