Процедура поиска в ListBox значения Edit.

[NiKiToZZ23]

1. Есть ListBox, есть Edit. Составьте пожалуйста процедуру поиска в ListBox строчки, значение которой соответствует значению Edit.Text, с последующим удалением этой строчки.
2. На форме есть Edit. Есть ListBox. Составьте пожалуйста процедуру переноса рандомной строчки из ListBox'а в Edit.
Пробовал

for i=0 to listbox.items.count-1 do
edit.text:=listbox.items[i];

но в Edit перекидывается всегда последняя строчка ListBox'а.

[JUDAS]

1. находит все строчки

procedure TForm1.Button1Click(Sender: TObject);
var p,l      : integer;
    subStr,S : string;
begin
  subStr := Edit1.Text+#13#10;
  S      := ListBox1.Items.Text;
  l      := LenGth(subStr);
  repeat
    p:=Pos(subStr,S);
    if p>0 then Delete(S, p,l);
  until p=0;
  ListBox1.Items.Text:=S;
end;

2.

procedure TForm1.Button1Click(Sender: TObject);
var n : integer;
begin
  n:= random(ListBox1.Count-1);
  Edit1.Text:= ListBox1.Items.Strings[n];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

[NiKiToZZ23]

Сообщение от JUDAS

1. находит все строчки

procedure TForm1.Button1Click(Sender: TObject);
var p,l      : integer;
    subStr,S : string;
begin
  subStr := Edit1.Text+#13#10;
  S      := ListBox1.Items.Text;
  l      := LenGth(subStr);
  repeat
    p:=Pos(subStr,S);
    if p>0 then Delete(S, p,l);
  until p=0;
  ListBox1.Items.Text:=S;
end;

2.

procedure TForm1.Button1Click(Sender: TObject);
var n : integer;
begin
  n:= random(ListBox1.Count-1);
  Edit1.Text:= ListBox1.Items.Strings[n];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

Эмм... спасибо, буду разбираться)