Source position: xforms.pp line 2162
function fl_add_free(
p1: LongInt;
p2: TFL_Coord;
p3: TFL_Coord;
p4: TFL_Coord;
p5: TFL_Coord;
p6: pchar;
P7: PFL_HANDLEPTR
):PFL_OBJECT;