* fix for bug #18196, moving teventype broke examples.

git-svn-id: trunk@16559 -

packages/fcl-base/examples/tstelcmd.pp

@@ -3,7 +3,7 @@
 
 program testelcmd;
 
-uses eventlog;
+uses eventlog,sysutils;
 
 Var
   E : TEventType;