mORMot Open Source

PDF filesize when I embed fonts is much more compered to a PDF file produced using NovaPDf printer.   
NovaPDF file size is about 80KB,  Synopse is about 300KB.
Without embeding fonts Synopse file size is only 10KB.
When I look at file Font properties in Adobe Acrobat Reader the description of the fonts is different:
NovaPDF file:
Ariel
  Type:Type 1
  Encoding: Standard
  Actual Font: ArielMT
  Sctual Font Type: TrueType
ArielMT (Embeded Subset)    <=== Note the "subset" description. It is missing in the Synopse properties description
  Type: TrueType(CID)
  Encoding: Identity-H
...

Synopse File:
Ariel (Embeded)
  Type: TrueType
  Encoding: Ansi
Ariel (Embeded)
  Type: TrueType (CID)     
  Encoding: Identity-H
...

I use Synopse Version 1.18,  QuickReport 5.02.2  and Delphi 7

Here is the code:
    Pdf := nil;
    try
      Pdf := TPdfDocument.Create;
      Pdf.UseUniscribe := True;
      Pdf.EmbeddedTTF := True;
      Pdf.EmbeddedWholeTTF := False;
      Pdf.UseOptionalContent := True;
      Pdf.StandardFontsReplace := True;

      Pdf.DefaultPaperSize := psA4;
      Pdf.DefaultPageLandscape := TQuickRep(quRep).Page.Orientation = poLandscape;
      if not Assigned(TQuickRep(quRep).QRPrinter) then
        TQuickRep(quRep).Prepare;
      for i := 1 to TQuickRep(quRep).QRPrinter.PageCount do
      begin
        Pdf.AddPage;
        aMeta := TQuickRep(quRep).QRPrinter.GetPage(i);
        try
          Pdf.Canvas.RenderMetaFile(aMeta,1,0,0);
        finally
          aMeta.Free;
        end;
      end;
      Pdf.SaveToFile(iif(aAppend, NewRepFile, strSFileName));
    finally
      Pdf.free;
    end;