diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index 0fcd8d8e25..7819351686 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -3266,8 +3266,16 @@ var
       AddCompilerProc('Seg','var X','LongInt');
       AddCompilerProc('SetLength','var S:String;NewLength:Integer');
       AddCompilerProc('SetLength','var A:Array;NewLength:Integer');
-      if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then
+      if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then begin
         AddCompilerProc('SetString','out S:RawByteString;Buf:PAnsiChar;Len:SizeInt');
+        AddCompilerProcedure('SetString','out S:AnsiString;Buf:PAnsiChar;Len:SizeInt');
+        AddCompilerProcedure('SetString','out S:AnsiString;Buf:PWideChar;Len:SizeInt');
+        AddCompilerProcedure('SetString','out S:ShortString;Buf:PChar;Len:SizeInt');
+        AddCompilerProcedure('SetString','out S:UnicodeString;Buf:PUnicodeChar;Len:SizeInt');
+        AddCompilerProcedure('SetString','out S:UnicodeString;Buf:PChar;Len:SizeInt');
+        AddCompilerProcedure('SetString','out S:WideString;Buf:PWideChar;Len:SizeInt');
+        AddCompilerProcedure('SetString','out S:WideString;Buf:PChar;Len:SizeInt');
+      end;
       AddCompilerProc('SizeOf','Identifier','Integer');
       AddCompilerProc('Slice','var A:Array;Count:Integer','Array');
       AddCompilerProc('Str','const X[:Width[:Decimals]];var S:String');