Ayuda con PageControl

[[Bicho]]

Hola,

¿Has probado la propiedad Pageindex de cada Tabsheet?
Osea tienes esto:

Código Delphi [-]
TabSheet1.Caption := 'CONTACTOS';
TabSheet1.PageIndex := 0; //Se genera por defecto, cada vez que añades una, la nueva se incremente el indice

TabSheet2.Caption := 'CLIENTES';
TabSheet2.PageIndex := 1;

TabSheet3.Caption := 'PROVEEDORES';
TabSheet3.PageIndex := 2;

TabSheet4.Caption := 'EMPRESAS';
TabSheet4.PageIndex := 3;

//Si quieres visualizar empresas en primer lugar, basta que hagas:
TabSheet4.PageIndex := 0 //Tabsheet4 es Empresas y le das el indice 0, el primero, las demás se incrementarán en uno manteniendo su orden.

Saludos