%!s(int64=14) %!d(string=hai) anos · 4d572aa08d
--- a/rtl/objpas/sysutils/osutilsh.inc
+++ b/rtl/objpas/sysutils/osutilsh.inc
@@ -54,6 +54,7 @@ Type
 
															 Type
														
 
															   TEventType = (etCustom,etInfo,etWarning,etError,etDebug);
														
 
															+  TEventTypes = Set of TEventType;
														
 
															 Var
														
 
															   OnGetVendorName      : TGetVendorNameEvent;