mORMot Open Source

My code is as follows, the image test.jpg is only 5kb in size. The program ran for more than 10 minutes, but did not receive the expected PDF file. Finally, it indicated that there was insufficient memory.
How can I improve it? Thank you!

var
  PDF: TPdfDocument;
  PDFPage: TPdfpage;
  SW: TStopwatch;
  I: Integer;
  FS: TFileStream;
  pdfImage: TPdfImage;
  BarCode: string;
  X, Y: Single;
begin
  SW := TStopwatch.StartNew;
  PDF := TPdfDocument.Create;
  FS := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'output.pdf', fmCreate);
  try
    PDF.NewDoc;
    PDF.PDFA1 := True;
    PDF.DefaultPaperSize := psA4;
    PDF.SaveToStreamDirectBegin(FS);

    for I := 1 to 30000 do
    begin
      PDF.AddPage;
      BarCode := IdGenerator.NextId.ToString;
      pdfImage := TPdfImage.CreateJpegDirect(PDF, 'd:\test.jpg', True);
      PDF.AddXObject(BarCode, pdfImage);
      X := 200;
      Y := 800;
      PDF.Canvas.DrawXObject(X, Y, 30, 30, BarCode);
      pdfImage.ForceSaveNow;
      PDF.SaveToStreamDirectPageFlush(True);
    end;
    PDF.SaveToStreamDirectEnd;
    Memo1.Lines.Add(SW.ElapsedMilliseconds.ToString);
  finally
    PDF.Free;
    FS.Free;
  end;

my code:
var
  PDF: TPdfDocument;
  R: TPdfRect;

      R.Left := 30;
      R.Top := 500;
      R.Right := 100;
      R.Bottom := 800;
      PDF.Canvas.SetFont('Times New Roman', 12, []);
      PDF.Canvas.MultilineTextRect(R, 'Welcome to mORMot Open Source', True);

Only the text 'Welcome to' is displayed, no other text is displayed.
Thanks.

My code:
var
  props: TSQLDBWinHTTPConnectionProperties;
  SQL: TStringBuilder;
begin
  props := TSQLDBWinHTTPConnectionProperties.Create('127.0.0.1', 'XXX', '123', '123');
  SQL := TStringBuilder.Create;
  DD := TSynDBDataSet.Create(self);
  DD.Connection := props;
  SQL.Append('SELECT XGSTUFSID,XM,').AppendLine;
  SQL.Append('CASE WHEN SUBSTRING(BKZYDM,3,1) IN(''5'',''6'') THEN ''2'' ELSE ''1'' END LX').AppendLine;
  SQL.Append('FROM BBK').AppendLine;
  DD.CommandText := SQL.ToString;
  DD.Open;

When I modify the field of XM,and call Post and ApplyUpdates(0)，but no data was saved.
How can i do ?Thanks.

I wanted to connect to SAP SQL Anywhere 17 by TSQLDBFireDACConnectionProperties:

var
FD: TSQLDBFireDACConnectionProperties;

FD := TSQLDBFireDACConnectionProperties.Create('ASA?ENG=test', 'TEST',
    'dba', 'sql');

Error Message:
TSQLDBFireDACConnectionProperties.Create:unknown provider-available: OraMSSQLMSAccMySQLSQLiteIBPGDB2Infx.

How to connect to the SAP SQL Anywhere 17 by TSQLDBFireDACConnectionProperties?
Thanks.