Alle Tabs eines PageControls schließen

[kingflo]

Hallo ich möchte gans gerne alle Tabs meines Page controls schließen bis auf das erste Tab.

Ich hatte da auch was gemacht und das funzt nicht ich bekomme dann einen Zugriffsfehler aber ich weiß nicht warum.

Eigentlich müsste das so funktionieren

Delphi-Quellcode:

begin
 // don't close the first tab
 PageControl3.ActivePageIndex:=PageControl3.PageCount-1;
 while PageControl3.ActivePageIndex > 0 do
 begin
 if PageControl3.ActivePageIndex > 0 then
 begin
    if PageControl3.ActivePage.Controls[0] is TSynEdit then
    begin
      // Free
      (TSynEdit(PageControl3.ActivePage.Controls[0])).free;
      HTMLEDIT := nil;
      // Free active Tab
      PageControl3.ActivePage.Free;
    end;
    PageControl3.ActivePageIndex:=PageControl3.ActivePageIndex-1;
  end;
  end;
  PageControl3Change(html);
end;