diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index 1ab683a660..1223516f03 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -1091,40 +1091,40 @@ var
 begin
   if Context.Node.Desc in AllPascalStatements then begin
 
-    AddCompilerProcedure('Assert','Condition: Boolean; const Message: String');
-    AddCompilerFunction('Assigned','P: Pointer','Boolean');
+    AddCompilerProcedure('Assert','Condition:Boolean;const Message:String');
+    AddCompilerFunction('Assigned','P:Pointer','Boolean');
     AddCompilerFunction('Addr','identifier','Pointer');
     AddCompilerProcedure('Break','');
-    AddCompilerFunction('Concat','Args: String', 'String');
+    AddCompilerFunction('Concat','Args:String', 'String');
     AddCompilerProcedure('Continue','');
-    AddCompilerFunction('Copy','const s: String; FromPosition, Count: Integer', 'String');
-    AddCompilerProcedure('Dec','var X: Ordinal; N: Integer = 1');
+    AddCompilerFunction('Copy','const S:String;FromPosition,Count:Integer', 'String');
+    AddCompilerProcedure('Dec','var X:Ordinal;N:Integer=1');
     AddCompilerProcedure('Dispose','Pointer');
-    AddCompilerProcedure('Exclude','var S: set; X: Ordinal');
+    AddCompilerProcedure('Exclude','var S:set;X:Ordinal');
     AddCompilerProcedure('Exit','');
     AddCompilerProcedure('Finalize','identifier');
     AddCompilerFunction('get_frame','','Pointer');
     AddCompilerFunction('High','Argument','Ordinal');
-    AddCompilerProcedure('Inc','var X: Ordinal; N: Integer = 1');
-    AddCompilerProcedure('Include','var S: set; X: Ordinal');
+    AddCompilerProcedure('Inc','var X:Ordinal;N:Integer=1');
+    AddCompilerProcedure('Include','var S:set;X:Ordinal');
     AddCompilerProcedure('Initialize','identifier');
-    AddCompilerFunction('Length','A: array','Ordinal');
+    AddCompilerFunction('Length','A:array','Ordinal');
     AddCompilerFunction('Low','Argument','Ordinal');
     AddCompilerProcedure('New','Pointer');
-    AddCompilerFunction('Ord','X: Ordinal', 'Ordinal');
-    AddCompilerFunction('Pred','X: Ordinal', 'Ordinal');
+    AddCompilerFunction('Ord','X:Ordinal', 'Ordinal');
+    AddCompilerFunction('Pred','X:Ordinal', 'Ordinal');
     AddCompilerProcedure('Read','');
     AddCompilerProcedure('ReadLn','');
-    AddCompilerProcedure('SetLength','var A: array; NewLength: Integer');
+    AddCompilerProcedure('SetLength','var A:array;NewLength:Integer');
     AddCompilerFunction('SizeOf','identifier','Integer');
-    AddCompilerFunction('Slice','var A: array; Count: Integer','array');
-    AddCompilerProcedure('Str','const X[:Width[:Decimals]]; var S: String');
+    AddCompilerFunction('Slice','var A:array;Count:Integer','array');
+    AddCompilerProcedure('Str','const X[:Width[:Decimals]];var S:String');
     AddCompilerFunction('Succ','X: Ordinal', 'Ordinal');
     AddCompilerFunction('TypeInfo','identifier', 'Pointer');
     AddCompilerFunction('TypeOf','identifier', 'Pointer');
-    AddCompilerProcedure('Val','S: String; var V; var Code: Integer');
-    AddCompilerProcedure('Write','Args : Arguments');
-    AddCompilerProcedure('WriteLn','Args : Arguments');
+    AddCompilerProcedure('Val','S:String;var V;var Code:Integer');
+    AddCompilerProcedure('Write','Args:Arguments');
+    AddCompilerProcedure('WriteLn','Args:Arguments');
 
     if Context.Tool.NodeIsInAMethod(Context.Node)
     and (not CurrentIdentifierList.HasIdentifier('Self','')) then begin