procedure TForm1.Demo_TgtPDFFormListBox;
var
  gtPDFFormListBox1, gtPDFFormListBox2: TgtPDFFormListBox;
  gtPDFFormPushButton1: TgtPDFFormPushButton;
  gtPDFEngine1: TgtPDFEngine;
begin
  gtPDFEngine1 := TgtPDFEngine.Create(Nil);

  // Create a list box form field
  gtPDFFormListBox1 := TgtPDFFormListBox.Create;
  gtPDFFormListBox1.Rect := gtRect(1, 1, 3, 1.5);
  gtPDFFormListBox1.FieldName := 'lbFruit';
  gtPDFFormListBox1.AddItem('Apples');
  gtPDFFormListBox1.AddItem('Oranges');
  gtPDFFormListBox1.AddItem('Pineapple');
  gtPDFFormListBox1.AddItem('Grapes');
  gtPDFFormListBox1.IsSortList := True;
  gtPDFFormListBox1.IsMultiSelect := True;

  // Create a push button form field
  gtPDFFormPushButton1 := TgtPDFFormPushButton.Create;
  gtPDFFormPushButton1.Rect := gtRect(1, 2, 2, 2.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 := 'listbox_formfield.pdf';

    BeginDoc;
    TextOut(1, 0.8, 'Select a fruit:');
    // Add form fields to current page
    AddFormItem(gtPDFFormListBox1);
    AddFormItem(gtPDFFormPushButton1);
    EndDoc;
  end;
end;