Program pushme; uses xforms; var simpleform : PFL_FORM; { formname,buttonname : string; } begin fl_initialize(@argc, argv, 'FormDemo', nil, 0); simpleform := fl_bgn_form(FL_UP_BOX,230,160); fl_add_button(FL_NORMAL_BUTTON,40,50,150,60,'Pushme'); fl_end_form; fl_show_form(simpleform, FL_PLACE_MOUSE, FL_NOBORDER, 'Push me'); fl_do_forms; fl_hide_form(simpleform); end.