* Fixed handling of OleVariant type (was messed up with Variant), now comparisons with colevarianttype work correctly, resolves #22504 (r21970 was correct but not enough).

git-svn-id: trunk@21976 -

compiler/psystem.pas

@@ -378,7 +378,7 @@ implementation
         addtype('$openchararray',openchararraytype);
         addtype('$file',cfiletype);
         addtype('$variant',cvarianttype);
-        addtype('$olevariant',cvarianttype);
+        addtype('$olevariant',colevarianttype);
         if init_settings.fputype<>fpu_none then
           begin
             addtype('$s32real',s32floattype);