procedure TForm1.Button1Click(Sender: TObject);
begin
  with gtPDFEngine1 do
  begin
    FileName := 'Sample.pdf';
    Preferences.EmbedTrueTypeFonts := etfFull;
    FontEmbedExcludeList.Add('Arial');
    FontEmbedExcludeList.Add('Courier New');
    FontEmbedExcludeList.Add('Verdana');
    Font.Size := 12;
    BeginDoc;
      Font.Name := 'Arial';
      TextOut(1, 1, 'This sentence is in Arial font.');

      Font.Name := 'Times New Roman';
      TextOut(1, 2, 'This sentence is in Times New Roman font.');

      Font.Name := 'Courier New';
      TextOut(1, 3, 'This sentence is in Courier New font.');

      Font.Name := 'Microsoft Sans Serif';
      TextOut(1, 4, 'This sentence is in Microsoft Sans Serif font.');

      Font.Name := 'Verdana';
      TextOut(1, 5, 'This sentence is in Verdana font.');

      Font.Name := 'Tahoma';
      TextOut(1, 6, 'This sentence is in Tahoma font.');
    EndDoc;
  end;
end;