Problem mit "Search"Funktion (Suche)

[xShadowBoZz]

So mein nächstes Problem.
Also habe eben auch schon gefragt wie man mehrere "Boolean-Ausdrücke(dingens)" in eine If Abfrage reinkriegt. Das klappt so weit so gut.
jetzt hab ich aber ein Problem das meine Suche (in diesem Fall) auf Form2.Listbox1 ausgerichtet ist.
Kann man das irgendwie auf mehrere ListBox's "konfiguieren" falls ListBoxX.Visible?

also hier mal mein Code:

Delphi-Quellcode:

procedure TForm1.SearchClick(Sender: TObject);
var i : Integer;
    searchUp : String;
begin
If ((Form2.ListBox1.Visible) or (Form2.ListBox2.Visible)) then begin //mehrere ListBoxen
  If Edit2.Enabled=True then begin //Zusätzliche Funktion (unwichtig)
    Form2.listBox1.MultiSelect := True; //evtl. Form2.listbox2.MultiSelect := True; hinzufügen?
    searchUp := AnsiUpperCase(Edit1.Text); //muss man wohl nix ändern
    for i:=0 to StrToInt(Edit2.Text) do //hier glaub auch nix ändern
      if Pos(searchUp, AnsiUpperCase(Form2.listBox1.Items[i])) > 0 then begin //Wie Hier Form2.ListBox2.Items[i] hinzufügen? oda per "else unten hinzufügen?
      Form2.listBox1.Selected[i] := true;  //evtl. Form2.listbox2.Selected[i] unten hinzufügen?
      application.ProcessMessages;
    end
    else
      Form2.listBox1.Selected[i] := false; //evtl. Form2.listbox2.selected[i] := false; hinzufügen
    end;
end;

also das durchsucht nur ListBox1 (fals Visible) und nicht LIstBox2 (fals visible)