type
TOnGlue =
procedure
(Sender: TObject;
AnotherForm: TForm;
var
AllowGlue: Boolean)
of
object
;