Hjælp til min listbox..

Kode 

var i: integer;
begin
  i:= 0;
  while i < ListBox1.Items.Count do
  begin
    if (ListBox1.Items[i] = Edit1.Text) then ListBox1.Items.Delete(i);
    Inc(i);
  end;
end;

Kode 

var
  i:integer;
begin
  i:=ListBox1.Items.IndexOf(Edit1.Text);
  if(i=-1)then
  begin
    showmessage(Edit1.Text+' ikke fundet i listbox');
  end
  else
  begin
    ListBox1.Items.Delete(i);
  end;
end;