PageControl y TabSheets

[jafera]

Os adjunto una muestra del codigo por si es mas claro

 
procedure TF_Discs.DBComboBox2Change(Sender: TObject);
begin
        If DBComboBox2.Text = '1' then
        begin
                TabSheet1.TabVisible:=True;
                TabSheet2.TabVisible:=False;
                TabSheet3.TabVisible:=False;
                TabSheet4.TabVisible:=False;
                TabSheet5.TabVisible:=False;
        end;
        If DBComboBox2.Text = '2' then
        begin
                TabSheet1.TAbVisible:=True;
                TabSheet2.TAbVisible:=True;
                TabSheet3.TAbVisible:=False;
                TabSheet4.TAbVisible:=False;
                TabSheet5.TAbVisible:=False;
        end;
end;

Gracias de nuevo
Josep