diff --git a/lib/delphi/src/Thrift.Console.pas b/lib/delphi/src/Thrift.Console.pas
index 1dbb309..16fa8af 100644
--- a/lib/delphi/src/Thrift.Console.pas
+++ b/lib/delphi/src/Thrift.Console.pas
@@ -99,10 +99,9 @@
   begin
     idx := FMemo.Count - 1;
     if idx < 0 then
-    begin
-      FMemo.Add( S );
-    end;
-    FMemo[idx] := FMemo[idx] + S;
+      FMemo.Add( S )
+    else
+      FMemo[idx] := FMemo[idx] + S;
   end;
   FLineBreak := bWriteLine;
 end;