Delphi - Buscar en LISTBOX !!!Helpppp!!!

hola amigos tengo una super duda, vean tengo que buscar en un listbox una cadena entrada en un Edit y si esta se encuentra en el listbox entonces que la elimine

saludos a todos

el novato

Yo haría algo así

1) Si se elimina aunque aparezca una subcadena (por ejemplo, si en el edit pones A y la cadena del ListBox es Agosto):

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=ListBox1.Items.Count-1 downto 0 do begin
if Pos (Edit1.Text, ListBox1.Items[i])<>0 then
ListBox1.Items.Delete(i);
end;
end;

2) Si debe ser una búsqueda/eliminacio exacta:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=ListBox1.Items.Count-1 downto 0 do begin
if Edit1.Text=ListBox1.Items[i] then
ListBox1.Items.Delete(i);
end;
end;

Suerte.

Primero encontrar el index de la cadena:

i := list.IndexOf('cadena');

luego borrarla si existe:

if i > -1 then list.items.delete(i);