THtmlForm

type THtmlForm = class(TObject)

public

  Document: ThtDocument;

  Method: ThtString;

  Action: ThtString;

  Target: ThtString;

  EncType: ThtString;

  ControlList: TFormControlObjList;

  NonHiddenCount: Integer;

  constructor Create();

  destructor Destroy; override;

  procedure DoRadios();

  procedure InsertControl();

  procedure ResetControls;

  function GetFormSubmission;

  procedure SubmitTheForm();

  procedure SetFormData();

  procedure SetSizes();

  procedure ControlKeyPress();

  procedure AKeyDown();

end;

THtmlForm

TObject