Source position: xforms.pp line 304
type TFL_PUP_ENTRY = record
TheText: pchar;
CallBack: PFL_PUP_CB;
shortcut: pchar;
mode: LongInt;
end;