[[David]]

Depurando me he dado cuenta de que falla en sólo cuando llega a :

PageControl.ActivePage := TabSheet1;
TabSheet2.TabVisible := False;