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

  // Create a text box form field
  gtPDFFormTextField1 := TgtPDFFormTextField.Create;
  gtPDFFormTextField1.Rect := gtRect(1, 1, 3, 1.2);
  gtPDFFormTextField1.FieldName := 'tfUserName';
  gtPDFFormTextField1.IsMultiline := True;
  gtPDFFormTextField1.IsDoNotSpellCheck := True;
  gtPDFFormTextField1.MaxLength := 10;
  gtPDFFormTextField1.HAlignment := taCenter;

  // Create another text box form field
  gtPDFFormTextField2 := TgtPDFFormTextField.Create;
  gtPDFFormTextField2.Rect := gtRect(1, 2, 3, 2.2);
  gtPDFFormTextField2.FieldName := 'tfPassword';
  gtPDFFormTextField2.IsMultiline := False;
  gtPDFFormTextField2.IsPassword := True;
  gtPDFFormTextField2.MaxLength := 15;

  // Create a push button form field
  gtPDFFormPushButton1 := TgtPDFFormPushButton.Create;
  gtPDFFormPushButton1.Rect := gtRect(1, 3, 2, 3.3);
  gtPDFFormPushButton1.FieldName := 'pbSubmit';
  gtPDFFormPushButton1.BorderColor := clGray;
  gtPDFFormPushButton1.NormalCaption := 'Submit Order';
  gtPDFFormPushButton1.RolloverCaption := 'Submit Order';
  gtPDFFormPushButton1.DownCaption := 'Submit Order';
  gtPDFFormPushButton1.SubmitURL :=
    'http://www.gnostice.com/newsletters/demos/200804/forms_test.asp';
  gtPDFFormPushButton1.Action := pbaSubmit;

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

    BeginDoc;
    TextOut(1, 0.8, 'Enter username');
    TextOut(1, 1.8, 'Enter password');
    // Add the form fields to current page
    AddFormItem(gtPDFFormTextField1);
    AddFormItem(gtPDFFormTextField2);
    AddFormItem(gtPDFFormPushButton1);
    EndDoc;
  end;
end;