procedure TForm1.Demo_TgtPDFFormPushButton;
var
  gtPDFFormTextField1: TgtPDFFormTextField;
  gtPDFFormPushButton1, gtPDFFormPushButton2: TgtPDFFormPushButton;
  gtPDFEngine1: TgtPDFEngine;
begin
  gtPDFEngine1 := TgtPDFEngine.Create(Nil);

  // Create a text field
  gtPDFFormTextField1 := TgtPDFFormTextField.Create;
  gtPDFFormTextField1.Rect := gtRect(1, 1, 3, 1.5);
  gtPDFFormTextField1.FieldName := 'tfName';

  // Create a pusb button for validation
  gtPDFFormPushButton1 := TgtPDFFormPushButton.Create;
  gtPDFFormPushButton1.Rect := gtRect(3.5, 1, 4.5, 1.5);
  gtPDFFormPushButton1.FieldName := 'pbValidate';
  gtPDFFormPushButton1.NormalCaption := 'Validate';
  gtPDFFormPushButton1.RolloverCaption := 'Validate';
  gtPDFFormPushButton1.DownCaption := 'Validate';
  gtPDFFormPushButton1.Action := pbaJavaScript;
  gtPDFFormPushButton1.JavaScript :=
    ' var tf1 = this.getField("tfName");             ' +
    ' var btn1 = this.getField("pbValidate");        ' +
    ' var btn2 = this.getField("pbSubmit");          ' +
    ' if (tf1.valueAsString.length > 3) {            ' +
    '   tf1.value = tf1.valueAsString.toUpperCase(); ' +
    '   btn2.buttonSetCaption("Submit");             ' +
    '   btn1.display = display.hidden;               ' +
    '   btn1.setFocus();                             ' +
    ' } else {                                       ' +
    '   app.alert("Please enter a valid name.");     ' +
    '   tf1.setFocus();                              ' +
    ' }';
  // If the validation push button is pressed, viewer
  // application executes the above JavaScript script.
  // The script checks if there is valid data in the
  // text field. If there is invalid data, it displays
  // an error message. Otherwise, it shifts focus to
  // the submit button.

  // Create another push button form field for form submission
  gtPDFFormPushButton2 := TgtPDFFormPushButton.Create;
  gtPDFFormPushButton2.Rect := gtRect(1, 2, 3, 2.5);
  gtPDFFormPushButton2.FieldName := 'pbSubmit';
  gtPDFFormPushButton2.NormalCaption := 'Click "Validate" First';
  gtPDFFormPushButton2.RolloverCaption := 'Submit';
  gtPDFFormPushButton2.DownCaption := 'Submit';
  gtPDFFormPushButton2.Action := pbaSubmit;
  gtPDFFormPushButton2.SubmitURL :=
    'http://www.gnostice.com/newsletters/demos/200804/forms_test.asp';

  with gtPDFEngine1 do
  begin
    Preferences.ShowSetupDialog := False;
    Preferences.OpenAfterCreate := True;
    FileName := 'pushbutton_formfield.pdf';

    BeginDoc;

    TextOut(1,0.8,'Enter your name in this box and click "Validate"');
    TextOut(1,1.8,'Click this button after validating your name');

    // Add form fields to current page
    AddFormItem(gtPDFFormTextField1);
    AddFormItem(gtPDFFormPushButton1);
    AddFormItem(gtPDFFormPushButton2);

    EndDoc;
  end;
end;