diff --git a/packages/chm/src/chmcmd.lpr b/packages/chm/src/chmcmd.lpr
index cd5899735c..7cdcd573e8 100644
--- a/packages/chm/src/chmcmd.lpr
+++ b/packages/chm/src/chmcmd.lpr
@@ -111,7 +111,7 @@ var
   alloweddetaillevel : integer = 0;     // show if msg.detaillevel<=allowdetaillevel
   htmlscan           : THtmlScanEnum = Scandefault;
 
-procedure OnError (Project: TChmProject;errorkind:TChmProjectErrorKind;msg:String;detailevel:integer=0);
+procedure OnError (Project: TChmProject;errorkind:TChmProjectErrorKind;msg:rtlString;detailevel:integer=0);
 begin
   if (detailevel<=alloweddetaillevel) or (errorkind < chmnote) then
     if errorkind<>chmnone then
diff --git a/packages/chm/src/chmls.lpr b/packages/chm/src/chmls.lpr
index 184956fcbb..f5dde9e73e 100644
--- a/packages/chm/src/chmls.lpr
+++ b/packages/chm/src/chmls.lpr
@@ -49,14 +49,14 @@ type
     count    : integer;
     donotpage: boolean;
     nameonly : boolean;
-    procedure OnFileEntry(Name: String; Offset, UncompressedSize, ASection: Integer);
+    procedure OnFileEntry(Name: RTLString; Offset, UncompressedSize, ASection: Integer);
   end;
 
    TExtractAllObject = class
     basedir : string;
     r       : TChmReader;
     lastone_was_point : boolean;
-    procedure OnFileEntry(Name: String; Offset, UncompressedSize, ASection: Integer);
+    procedure OnFileEntry(Name: RTLString; Offset, UncompressedSize, ASection: Integer);
   end;
 
 Type
@@ -197,7 +197,7 @@ end;
 
 var donotshowoffset : boolean=false;
 
-procedure TListObject.OnFileEntry(Name: String; Offset, UncompressedSize,
+procedure TListObject.OnFileEntry(Name: RTLString; Offset, UncompressedSize,
   ASection: Integer);
 begin
   Inc(Count);
@@ -225,7 +225,7 @@ begin
   WriteLn(Name);
 end;
 
-procedure TExtractAllObject.OnFileEntry(Name: String; Offset, UncompressedSize,
+procedure TExtractAllObject.OnFileEntry(Name: RTLString; Offset, UncompressedSize,
   ASection: Integer);
 var mem : TMemoryStream;
     s   : String;