diff --git a/ide/codetemplatesdlg.pas b/ide/codetemplatesdlg.pas
index 905612f38d..2054311600 100644
--- a/ide/codetemplatesdlg.pas
+++ b/ide/codetemplatesdlg.pas
@@ -374,7 +374,7 @@ begin
   CodeBuf.LineColToPosition(XY.Y,XY.X,p);
   if p>0 then begin
     StartPos:=GetIdentStartPosition(CodeBuf.Source,p);
-    XY.X += StartPos-p;
+    XY.X := XY.X + StartPos-p;
   end;
   if not CodeToolBoss.ExtractProcedureHeader(CodeBuf,XY.X,XY.Y,Attributes,Value)
   then begin