diff --git a/lcl/lresources.pp b/lcl/lresources.pp
index 9bb6accf56..ab13e5f720 100644
--- a/lcl/lresources.pp
+++ b/lcl/lresources.pp
@@ -2317,7 +2317,7 @@ var
       Output.Write(s[1], Length(s));
   end;
 
-  procedure WriteWideString(const s: String);
+  procedure WriteWideString(const s: WideString);
   begin
     WriteLRSInteger(Output,Length(s));
     if Length(s) > 0 then