[[maeyanes]]

Hola...

Podrías hacer algo como:

Código Delphi [-]
begin
  for I := Pred(ListBox1.Items.Count) downto 0 do
    if Pos('tema', ListBox1.Items[i]) = 1 then
      ListBox1.Items.Delete(I)
end;

Saludos...