Story形式ファイルのページ情報の利用例です。
開いているStory形式ファイルをHTML化し別ﾌｧｲﾙとして開きます。
Story形式のファイルを開いた状態で実行してください。

//Ast_HTML
var
  SL, SL2 : TStringList;
  FName, pgName, pgText: String;
  i, j : integer;

  function ReplaseHTML( S: String ): String;
  begin
    Result:= ReplaseStr( S, '&', '&' );
    Result:= ReplaseStr( Result, '<', '&lt;' );
    Result:= ReplaseStr( Result, '>', '&gt;' );
    Result:= Result +'<Br>';
  end;

begin

  //Story形式ﾌｧｲﾙで無ければ終了
  if not IsStory then Exit;

  FName:= FileName;

  SL := TStringList.Create;
  SL2 := TStringList.Create;
  try

    for i:= 0 to PageCount-1 do
    begin
      //ページ名
      SL.Add( '[AA][' +PageName(i) +']' );

      //ページText
      SL2.Text:= PageText(i);
      for j:= 0 to SL2.Count-1 do
        SL.Add( ReplaseHTML( SL2.Strings[ j ] ) );
    end;

    //名前を変えて保存して開く
    FName:= ChangeFileExt(FName, '') +'_html.ast';
    SL.SaveToFile( FName );
    FileOpenA( FName );

  finally
    SL.Free;
    SL2.Free;
  end;

end.