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