From 47155a26f14f715af08b1dec971dfcaf2b5f40f8 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 19 Jan 2015 03:56:27 +0100
Subject: [PATCH] fix, TCESynMemo leaked

---
 src/ce_editor.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index c3fb6431..81d22518 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -117,10 +117,10 @@ var
   i: integer;
 begin
   EntitiesConnector.removeObserver(self);
-  for i := 0 to PageControl.PageCount-1 do
+  for i := PageControl.PageCount-1 downto 0 do
     if PageControl.Page[i].ControlCount > 0 then
-      if (PageControl.Controls[0] is TCESynMemo) then
-        PageControl.Controls[0].Free;
+      if (PageControl.Page[i].Controls[0] is TCESynMemo) then
+        PageControl.Page[i].Controls[0].Free;
   tokLst.Free;
   errLst.Free;
   inherited;