astファイルは、

[AA][名前]
AA
AA
[AA][名前]
AA
AA
･･･

//Create_ast_file
var
  SL : TStringList;
  FName : String;
  i, j : integer;
begin

  SL := TStringList.Create;
  try

    //１０ページ作る
    for i:= 1 to 10 do
    begin
      //名前
      SL.Add('[AA][Page : ' +IntToStr(i) +']')

      //本文 ( １０行 )
      for j:= 1 to 10 do
        SL.Add( IntToStr(i) +' - ' +IntToStr(j) );
    end;

    FName:= AppPath +'test_astFile.ast';
    SL.SaveToFile( FName );
    FileOpenA( FName );

  finally
    SL.Free;
  end;

end.