Index: run/JvInterpreter.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvInterpreter.pas,v
retrieving revision 1.71
diff -u -r1.71 JvInterpreter.pas
--- run/JvInterpreter.pas	17 Jan 2006 20:40:36 -0000	1.71
+++ run/JvInterpreter.pas	3 Feb 2006 13:32:42 -0000
@@ -1033,6 +1033,8 @@
     procedure Clear(var V: TVarData); override;
     procedure Copy(var Dest: TVarData; const Source: TVarData;
       const Indirect: Boolean); override;
+    procedure CastTo(var Dest: TVarData; const Source: TVarData;
+      const AVarType: TVarType); override;
   end;
 
   TJvRecordVariantType = class(TJvSimpleVariantType);
@@ -1350,6 +1352,14 @@
 
 //=== { TJvSimpleVariantType } ===============================================
 
+procedure TJvSimpleVariantType.CastTo(var Dest: TVarData;
+  const Source: TVarData; const AVarType: TVarType);
+begin
+  //support only inherited classes
+  Dest.VPointer := Source.VPointer;
+  //inherited;
+end;
+
 procedure TJvSimpleVariantType.Clear(var V: TVarData);
 begin
   SimplisticClear(V);