ne vizdam koga tochno se poluchava tozi problem, kojto opisvash.
moje bi izpuskash neshto...

tova raboti pri men:

var

  page : TPage;

  label : TLabel;



......



if note.PageIndex > -1 then 

  begin

    page := TPage(note.Pages.Objects[note.PageIndex]);

    label := TLabel.Create(page);

    try

      label.Parent := page;

      label.Caption := IntToStr(note.PageIndex);

    except

      label.Free;

    end;

    page.Visible := true;

  end;

Щом не върви от първия път, значи има шанс