Y porque no controlar los TabSheets desde el evento OnChange del PageControl???
Por ejemplo:
Código Delphi
[-]if PageControl1.ActivePageIndex=0
then begin
end;
if PageControl1.ActivePageIndex=1 then begin
if (condiciones_para_usarse)=True
then begin
end
else beginç
PageContr0l1.ActivePageIndex:=0;
end;
end;
if PageControl1.ActivePageIndex=2
then begin
end;
Podes hacer esto mismo con un Case
Saludos
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;