diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index c622c9d4e5..f5daaf20aa 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -280,6 +280,7 @@ type
     xtNativeUInt,  // depends on compiler and platform
     xtCompilerFunc,// SUCC, PREC, LOW, HIGH, ORD, LENGTH, COPY (1.1), ...
     xtVariant,     // variant
+    xtOleVariant,  // OleVariant
     xtJSValue,     // jsvalue only in Pas2JS, similar to variant
     xtNil,         // nil  = pointer, class, procedure, method, ...
     xtSizeInt      // SizeInt for Length intrinsic
@@ -337,6 +338,7 @@ var
     'NativeUInt',
     'CompilerFunc',
     'Variant',
+    'OleVariant',
     'JSValue',
     'Nil',
     'SizeInt'
@@ -1385,6 +1387,8 @@ begin
     Result:=xtConstBoolean
   else if CompareIdentifiers(Identifier,'VARIANT')=0 then
     Result:=xtVariant
+  else if CompareIdentifiers(Identifier,'OLEVARIANT')=0 then
+    Result:=xtOleVariant
   else if CompareIdentifiers(Identifier,'CURRENCY')=0 then
     Result:=xtCurrency
   else if CompareIdentifiers(Identifier,'LONGINT')=0 then
diff --git a/components/codetools/keywordfunclists.pas b/components/codetools/keywordfunclists.pas
index 649ff6938a..113c785571 100644
--- a/components/codetools/keywordfunclists.pas
+++ b/components/codetools/keywordfunclists.pas
@@ -1864,6 +1864,7 @@ begin
     Add('TRUE'       ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('UNICODESTRING',{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('VARIANT'    ,{$ifdef FPC}@{$endif}AllwaysTrue);
+    Add('OLEVARIANT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('WIDECHAR'   ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('WIDESTRING' ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('WORD'       ,{$ifdef FPC}@{$endif}AllwaysTrue);