for-Schleife soll erst bei Button-Click weiterlaufen

[Kutter111]

Hallo,
ich suche nach einer Möglichkeit, daß eine for-Schleife erst dann weiterläuft, wenn ich auf den Button Suche clicke. In der Schleife wird eine TStringlist (ini-Paare) nach Werten abgefragt und mit einer Eingabe im Edit verglichen. Es soll dann den String (in diesem Fall der Section-Name) in einer ListBox markieren:

Delphi-Quellcode:

procedure TForm2.SuchBtnClick(Sender: TObject);
var i,x: Integer;
begin
  for i := 0 to Form1.ListBox1.Items.Count - 1 do
  begin
    ini.ReadSectionValues(Form1.ListBox1.Items.Strings[i],sl);
    for x := 0 to sl.Count - 1 do
      begin
        if AnsiContainsText(sl.ValueFromIndex[x],Edit1.Text) = True then
        begin
          Form1.ListBox2.Items.Add(Form1.ListBox1.Items.Strings[i]);//<- Als Kontrolle
          Form1.ListBox1.ItemIndex:=i;
          Form1.SetFocus;
        end;
      end;
  end;
end;

Die Suche funktioniert prima, aber das nächste soll erst dann gesucht werden, nachdem ich auf den Button clicke.
Ich habe schon Break nach Form1.SetFocus versucht, aber die Schleife läuft weiter. In der Kontrolle werden alle gefundenen Sections gleich in die ListBox2 geschrieben.
Wenn ich Break nach end setze bricht die Schleife zwar ab, die Kontrolle zeigt mir aber nach dem Drücken des Suche-Btn immer nur das erste Section an.

Kann mir jemand helfen?

Vielen Dank im Voraus

Kutter111