Source position: xforms.pp line 784
procedure fl_set_object_shortcut(
p1: PFL_OBJECT;
p2: PAnsiChar;
p3: LongInt
);