Ein weiteres TabSheet (also mind. zwei für das PageControl) beseitigt den zufälligen Fehler?
***
Mögliche Fehlerquelle, Ursache ist aber nicht sichtbar. Evtl. Tabs interne Listen noch nicht vollständig initialisiert zum Zeitpunkt des InsertObjekt.
Delphi-Quellcode:
{ComCtrls}
procedure TPageControl.InsertTab(Page: TTabSheet);
begin
Tabs.InsertObject(Page.TabIndex, Page.Caption, Page);
UpdateActivePage;
end;
Tabs ist ein TStrings.