[[Ohcan]]

Muchas Gracias

He optado por la segunda opción:

Código Delphi [-]
[...] //El procedure TForm1.ExitPag está declarado como published
var
  I:Integer;
  Pag:TTabSheet;
begin
  for I := 0 to PageControl.PageCount-1 do
    begin
      Pag := PageControl.Pages[i];
      if Assigned(Pag.OnExit) then
        begin
          if MethodName(@Pag.OnExit)='ExitPag' then ShowMessage(Pag.Name + ': ExitPag')
          else ShowMessage(Pag.Name + ': el propio, ' + MethodName(@Pag.OnExit));
        end
      else ShowMessage(Pag.Name + ': exit no asignado');
    end;
end;

Y va perfectamente.

Saludos.