1Program pushme;
2
3uses xforms;
4
5var simpleform : PFL_FORM;
6{    formname,buttonname : string;
7}
8begin
9  fl_initialize(@argc, argv, 'FormDemo', nil, 0);
10  simpleform := fl_bgn_form(FL_UP_BOX,230,160);
11   fl_add_button(FL_NORMAL_BUTTON,40,50,150,60,'Pushme');
12  fl_end_form;
13  fl_show_form(simpleform, FL_PLACE_MOUSE, FL_NOBORDER, 'Push me');
14  fl_do_forms;
15  fl_hide_form(simpleform);
16end.
17