no message

tests/webtbs/tw2739.pp

@@ -1,4 +1,5 @@
 {$mode Delphi}
+unit tw2739;
 
 interface
 
@@ -24,10 +25,12 @@ end;
 
 
 function JclAddExceptNotifier(const NotifyMethod: TJclExceptNotifyMethod): Boolean; overload;
-
+var
+  p : pointer;
 begin
+  p:=@NotifyMethod;
 end;
 
 
 begin
-end.
+end.