From f6e27b15d25598b7b4363ef4c23443ffbfc33a75 Mon Sep 17 00:00:00 2001
From: ronaldhordijk <ronaldhordijk>
Date: Sun, 30 Jan 2005 09:05:32 +0000
Subject: [PATCH] memory leak fixed

---
 2.02g/Source/FormRender.pas | 27 ++++++++++++---------------
 1 file changed, 12 insertions(+), 15 deletions(-)

diff --git a/2.02g/Source/FormRender.pas b/2.02g/Source/FormRender.pas
index 222e5b6..cb03b18 100644
--- a/2.02g/Source/FormRender.pas
+++ b/2.02g/Source/FormRender.pas
@@ -578,22 +578,19 @@ var
   Title: string;
   FStrings: TStringList;
 begin
-  FStrings := TStringList.Create;
-  if fileExists(AppPath + 'render presets') then
   try
-    FStrings.LoadFromFile(AppPath + 'render presets');
-    cmbPreset.Clear;
-    if (Pos('{', FStrings.Text) <> 0) then
-    begin
-      for i := 0 to FStrings.Count - 1 do
-      begin
-        p := Pos('{', FStrings[i]);
-        if (p <> 0) then
-        begin
-          Title := Trim(Copy(FStrings[i], 1, p - 1));
-          if Title <> '' then
-          begin
-            cmbPreset.Items.add(Copy(FStrings[i], 1, p - 1));
+    FStrings := TStringList.Create;
+    if fileExists(AppPath + 'render presets') then begin
+      FStrings.LoadFromFile(AppPath + 'render presets');
+      cmbPreset.Clear;
+      if (Pos('{', FStrings.Text) <> 0) then begin
+        for i := 0 to FStrings.Count - 1 do begin
+          p := Pos('{', FStrings[i]);
+          if (p <> 0) then  begin
+            Title := Trim(Copy(FStrings[i], 1, p - 1));
+            if Title <> '' then begin
+              cmbPreset.Items.add(Copy(FStrings[i], 1, p - 1));
+            end;
           end;
         end;
       end;