[~ SaM ~]

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
var 
    p:string;
    i:integer;
begin
listbox2.Clear;
for i:=0 to listbox1.count-1 do begin
if listbox1.Selected[i]=true then p:=listbox1.items.strings[i];
end;

//А потом необходимо использовать процедуру поиска заново, но сообщить ей о том, что необходимо передавать информацию не в ListBox1, а в ListBox2.
end;