diff --git a/rtl/objpas/classes/reader.inc b/rtl/objpas/classes/reader.inc
index c66ac38740..836d40e779 100644
--- a/rtl/objpas/classes/reader.inc
+++ b/rtl/objpas/classes/reader.inc
@@ -1945,7 +1945,7 @@ begin
      end;
   if ResHandle=NilHandle then 
     exit;     
-  S:=TResourceStream.Create(NilHandle,DeltaName, PChar(RT_RCDATA));
+  S:=TResourceStream.Create(NilHandle,DeltaName, PAnsiChar(RT_RCDATA));
   try
     Proc(S);
   finally