FQPDF.FindFonts; // Neccessary?

      slFontNames := TStringList.Create;
      slFontNames.CommaText := FQPDF.GetInstalledFontsByCodePage(FCodePage, 0);
      if slFontNames.Count > 0 then
      begin
        iPreferredFontIndex := -1;
        for i := 0 to slFontNames.Count - 1 do
        begin
          if (slFontNames = 'Helvetica') or
             (slFontNames = 'MS Sans Serif') or
             (slFontNames = 'Arial')
          then
          begin
            iPreferredFontIndex := i;
            break;
          end;
        end;

        if iPreferredFontIndex > -1 then
          sFontName := slFontNames[iPreferredFontIndex] + ' {' + IntToStr(FCodePage) + '}'
        else
          sFontName := slFontNames[0] + ' {' + IntToStr(FCodePage) + '}';
        iFontID := FQPDF.AddTrueTypeFont(sFontName ,1);
        FQPDF.SelectFont(iFontId);
      end
      else
      begin
        iFontID := FQPDF.AddStandardFont(integer(SF_Helvetica));
        FQPDF.SelectFont(iFontID);
        sFontName := FQPDF.FontName;
      end;
      slFontNames.Free;

      bFound := false;
      for i := 1 to FQPDF.GetFormFontCount do
      begin
        if sFontName = FQPDF.GetFormFontName(i) then
        begin
          FFormFieldFontID := i;
          bFound := true;
          break;
        end;
      end;

      if not bFound then
        FFormFieldFontID := FQPDF.AddFormFont(iFontID);

  // Following is done for every field
     FQPDF.SetFormFieldStandardFont(oFormField.Fields.Id, integer(SF_Helvetica)); 
     FQPDF.SetFormFieldFont(oFormField.Fields.Id, FFormFieldFontID);