Delphi/Lazarus: Cambiar el Orden de las TabSheets en un PageControl en Tiempo de Ejecución

Pregunta: Tenemos un TPageControl, sobre el cual se encuentran posicionadas unas TabSheets. Al inicio del programa, esas pestañas tienen una disposición específica y nos gustaría cambiar esta disposición respectivamente el orden de las pestañas durante el tiempo de ejecución de nuestro programa.

Solución: A través de la propiedad PageIndex, es posible determinar y establecer la posición de cada TabSheet en un PageControl.

procedure TForm1.Button1Click(Sender: TObject);
begin
  TabSheet3.PageIndex:=0;
  TabSheet2.PageIndex:=1;
  TabSheet1.PageIndex:=2;
  TabSheet0.PageIndex:=3;
end; 

En el ejemplo, se invierte el orden de las TabSheets "TabSheet0" a "TabSheet3", de modo que anteriormente, "TabSheet0" se ubica en la primera posición y luego de ejecutar este código, "TabSheet3" se encuentra en la primera posición mientras que "TabSheet0" está en la última posición en el PageControl.