diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index 5928fc6d9c..f0e16d26a8 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -2833,6 +2833,8 @@ 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
+        AddCompilerProc('SetString','out S:RawByteString;Buf:PAnsiChar;Len:SizeInt');
       AddCompilerProc('SizeOf','Identifier','Integer');
       AddCompilerProc('Slice','var A:Array;Count:Integer','Array');
       AddCompilerProc('Str','const X[:Width[:Decimals]];var S:String');