procedure TForm1.Button1Click(Sender: TObject);
var
  qp: tisedquickpdf; f1, i: integer;
begin
  qp := tisedquickpdf.Create;
  try
    screen.Cursor := crhourglass;
    qp.UnlockKey(iPDF_ID);
    qp.SetPageSize('A4');
    qp.SetMeasurementUnits(1);
    qp.SetOrigin(1);
    f1 := qp.AddStandardFont(5);
    qp.SelectFont(f1);
    for i := 1 to 6 do begin
      qp.NewFormField('Field ' + inttostr(i),1);
      qp.SetFormFieldDescription(i,'Field ' + inttostr(i));
      qp.SetFormFieldTextSize(i,16);
      qp.SetFormFieldValue(i,'This is form field #' + inttostr(i));
      qp.SetFormFieldBounds(i,22,20*i,180,12);
      qp.SetFormFieldVisible(i,1);
    end;
    savedialog1.Filter := 'PDF|*.pdf';
    savedialog1.DefaultExt := 'pdf';
    savedialog1.FileName := '';
    if savedialog1.Execute then begin
      qp.SaveToFile(savedialog1.FileName);
    end;
  finally
    qp.Free;
    screen.Cursor := crdefault;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  qp: tisedquickpdf; i,fieldindex: integer; s: string;
begin
  qp := tisedquickpdf.Create;
  try
    screen.Cursor := crhourglass;
    qp.UnlockKey(iPDF_ID);
    opendialog1.Filter := 'PDF|*.pdf';
    opendialog1.FileName := '';
    if opendialog1.Execute then begin
      qp.LoadFromFile(opendialog1.FileName);
      for i := 1 to qp.FormFieldCount do begin
        s := 'Field ' + inttostr(i);
        fieldindex := qp.FindFormFieldByTitle(s);
        qp.SetFormFieldValue(fieldindex,'No longer a form field! ' + inttostr(i) + ' ' +
          inttostr(fieldindex) + ' ' + s);
        qp.FlattenFormField(fieldindex);
      end;
      qp.SaveToFile(opendialog1.FileName);
    end;
  finally
    qp.Free;
    screen.Cursor := crdefault;
  end;
end;