[aleksnine]

Код:

var
i:integer;
begin
  for i:=cd.Items.Count-1 downto 0 do begin
  if cd.Items[i] = 'test1' then cd.Items.Delete(i);
  if cd.Items[i] = 'test2' then cd.Items.Delete(i);
  if cd.Items[i] = 'test' then cd.Items.Delete(i);
  end;