For-Schleife und ActivePageIndex ohn Wechsel der Seiten

[RWarnecke]

Hallo zusammen,

ich habe in einem TPageControl mehrere Seiten. In einem Button-OnClick Ereignis gehe ich jede Seite durch und führe bestimmte Aktionen aus. Das ganze mache ich über ein FOR-Schleife.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  for i := 0 to PageControl1.PageCount - 1 do
  begin
    PageControl1.ActivePageIndex := I;

    {... Weitere Aktionen in anderen Funktionen ...}

  end;
end;

In den anderen Funktionen rufe ich über eine Case-Anweisung den ActivePageIndex ab. Wenn ich jetzt die For_Schleife ausführe wechselt er alle Seiten einmal durch und das sieht etwas unschön aus. Wie kann ich das Wechsel der Reiter unterbinden ?