Удалить указанный текст из ListBox

[Shouldercannon]

Как из ListBox удалить текст указанный в Edit при нажатии на Button?

[Alex2009]

http://www.programmersforum.ru/showthread.php?t=33431 ТУТ СМОТРИ ЕСЛИ НЕ ТО СВИСТИ

[Neeter]

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