Source position: xforms.pp line 707
function fl_set_atclose(
p1: PFL_FORM_ATCLOSE;
p2: pointer
):PFL_FORM_ATCLOSE;