26 年之前 · 8cdbc655e6
--- a/tests/tbs0249.pp
+++ b/tests/tbs0249.pp
@@ -7,6 +7,7 @@ type
 
				   TNotifyEvent = procedure( Sender: TObject ) of object;
			
 
				 
			
 
				   THost = class
			
 
				+  protected
			
 
				     FOnEvent: TNotifyEvent;
			
 
				     procedure SetOnEvent( Value: TNotifyEvent );
			
 
				   public