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