Browse Source

rtl: fixed typo in variants.pp noticed by Ivan Shikhalev (mantis #0017983)

git-svn-id: trunk@16368 -
paul 14 years ago
parent
commit
23e74d5d46
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/variants.pp

+ 1 - 1
rtl/inc/variants.pp

@@ -3590,7 +3590,7 @@ function Null: Variant;       // Null standard constant
 
 procedure VarDispInvokeError;
   begin
-    raise EVariantDispatchError(SDispatchError);
+    raise EVariantDispatchError.Create(SDispatchError);
   end;
 
 { ---------------------------------------------------------------------