Hola,
¿Has probado la propiedad Pageindex de cada Tabsheet?
Osea tienes esto:
Código Delphi
[-]
TabSheet1.Caption := 'CONTACTOS';
TabSheet1.PageIndex := 0;
TabSheet2.Caption := 'CLIENTES';
TabSheet2.PageIndex := 1;
TabSheet3.Caption := 'PROVEEDORES';
TabSheet3.PageIndex := 2;
TabSheet4.Caption := 'EMPRESAS';
TabSheet4.PageIndex := 3;
TabSheet4.PageIndex := 0
Saludos