Index: trunk/Include/Classes/System/Delegate.ab
===================================================================
--- trunk/Include/Classes/System/Delegate.ab	(revision 337)
+++ trunk/Include/Classes/System/Delegate.ab	(revision 338)
@@ -0,0 +1,29 @@
+Namespace System
+
+Class _SimpleDelegate
+Public
+	object As Object
+	methodPtr As VoidPtr
+
+	Sub _SimpleDelegate( object As Object, methodPtr As VoidPtr )
+		This.object = object
+		This.methodPtr = methodPtr
+	End Sub
+End Class
+
+Class DelegateBase
+Protected
+	simpleDelegates As System.Collections.Generic.List<_SimpleDelegate>
+
+Public
+	Sub DelegateBase()
+		simpleDelegates = New System.Collections.Generic.List<_SimpleDelegate>()
+	End Sub
+	Sub Add( sd As System._SimpleDelegate )
+		simpleDelegates.Add( sd )
+	End Sub
+Public
+End Class
+
+
+End Namespace