1:

ComboBox1.Items.Delete(ComboBox1.Items.IndexOf('test'));					

1:
2:
3:
4:

for i:=ComboBox1.Items.Count-1 downto 0 do
begin
  if ComboBox1.Items[i]="test" then ComboBox1.Items[i].Delete;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
begin
  for i := ComboBox1.Items.Count - 1 downto 0 do
  if ComboBox1.Items[i] <> 'Hello' then
  ComboBox1.Items.Delete(i);
end;