diff --git a/components/codetools/codebeautifier.pas b/components/codetools/codebeautifier.pas
index 4038b11690..6444164c5e 100644
--- a/components/codetools/codebeautifier.pas
+++ b/components/codetools/codebeautifier.pas
@@ -2214,7 +2214,9 @@ end;
 
 procedure TFABPolicies.Clear;
 begin
+  IndentationCount:=0;
   ReAllocMem(Indentations,0);
+  IndentationCapacity:=0;
 end;
 
 procedure TFABPolicies.AddIndent(Typ, SubType: TFABBlockType;