mORMot Open Source

procedure TForm1.Button1Click(Sender: TObject);
var
  lPdf: TPdfDocument;
  lPage: TPdfPage;
  n: Integer;
  s: String;
begin
  lPdf := TPdfDocument.Create;
  try
    lPdf.Info.CreationDate := Now;
    lPdf.Info.Creator := 'SynPDF';
    lPdf.DefaultPaperSize := psA4;

    lPage := lPdf.AddPage;

    lPdf.Canvas.SetFont('Consolas', 9.0, [], EASTEUROPE_CHARSET);
    lPdf.Canvas.SetLeading(lPdf.Canvas.Page.FontSize);
    lPdf.Canvas.BeginText;

    s := 'abcdefghijklmnopqrstuvwxyz';

    for n := 2 to 33 do
    begin
      lPdf.Canvas.TextOut(100, lPage.PageHeight - n * 20, 'ĄĘŚĆŃÓŁŻŹ ' + s);
      lPdf.Canvas.TextOut(100, lPage.PageHeight - n * 20 - 10, 'ąęśćńółżź');
    end;

    lPdf.Canvas.EndText;
    lPdf.SaveToFile('TEST.PDF');

  finally
    lPdf.Free;
  end;
end;