Index: typinfo.pp
===================================================================
RCS file: /FPC/CVS/fpc/rtl/objpas/typinfo.pp,v
retrieving revision 1.42
diff -u -r1.42 typinfo.pp
--- typinfo.pp	3 Apr 2005 11:50:58 -0000	1.42
+++ typinfo.pp	4 Apr 2005 21:35:23 -0000
@@ -1272,6 +1272,13 @@
               Result:=TGetExtendedProc(AMethod)()
             else
               Result:=TGetExtendedProcIndex(AMethod)(PropInfo^.Index);
+          {$ifdef HASCURRENCY}
+          ftCurr:
+            if ((PropInfo^.PropProcs shr 6) and 1)<>0 then
+              Result:=TGetCurrencyProc(AMethod)()
+            else
+              Result:=TGetCurrencyProcIndex(AMethod)(PropInfo^.Index);
+          {$endif HASCURRENCY}
         end;
       end;
   end;
@@ -1338,6 +1345,13 @@
               TSetExtendedProc(AMethod)(Value)
             else
               TSetExtendedProcIndex(AMethod)(PropInfo^.Index,Value);
+          {$ifdef HASCURRENCY}
+          ftCurr:
+            if ((PropInfo^.PropProcs shr 6) and 1)<>0 then
+              TSetCurrencyProc(AMethod)(Value)
+            else
+              TSetCurrencyProcIndex(AMethod)(PropInfo^.Index,Value);
+          {$endif HASCURRENCY}
         end;
       end;
   end;
