type
  TOnMagnet = procedure(Sender: TObject;
                        AnotherForm: TForm;
                        var AllowMagnet: Boolean) of object;