Muchas gracias, estoy intentando usar un case, pero en vez de usar los indices, utilizar los nombre de las paginas. Esto es por si luego decido agregar o quitar pestañas, cambiar posicion, etc.
Aun estoy pensando como hacerlo para que funcione mas o menos asi:
Código Delphi
[-]
case PageControl1.ActivePage of
tabsheet_mia: form1.caption := 'funciona!'
end;