mORMot Open Source

I down loaded the pdf engine and found an example that works fine.

uses SynPdf;
procedure TForm1.DoIt;
var
lPdf   : TPdfDocument;
lPage  : TPdfPage;
begin
  lPdf := TPdfDocument.Create;
  try
    lPdf.Info.Author        := 'Tester';
    lPdf.Info.CreationDate  := Now;
    lPdf.Info.Creator       := 'Tester';
    lPdf.DefaultPaperSize   := psA4;
    lPage := lPDF.AddPage;
    lPDF.Canvas.SetFont('Helvetica',10.0,[]);
    lPDF.Canvas.SetLeading(lPDF.Canvas.Page.FontSize);
    lPDF.Canvas.SetLineWidth(0.1);

    lPdf.Canvas.BeginText;
    lPdf.Canvas.TextOut( 300, 700,  'This is some text_700.');
    lPdf.Canvas.TextOut( 300, 600,  'This is some text_600.');
    lPdf.Canvas.TextOut( 300, 500,  'This is some text_500.');
    lPdf.Canvas.TextOut( 300, 400,  'This is some text_400.');
    lPdf.Canvas.TextOut( 100, 300,  'This is some text_100,300.');
    lPdf.Canvas.EndText;

    lPdf.SaveToFile('c:\temp\test.pdf');
  finally
    lPdf.Free;
  end;
end;

BUT,

How do I add a new page?
Is TextOut the best way to do this?
I basically want a bunch of WriteLn's, a new page, and more WriteLn's.

Thanks for any hint,
Anders J