From 5775f67b6e8674d5529700652fcb7b61097cbb00 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 4 Dec 2008 01:45:00 +0000
Subject: [PATCH] lcl: fix memory leak in translations unit

git-svn-id: trunk@17677 -
---
 lcl/translations.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/translations.pas b/lcl/translations.pas
index cb54e9ffc4..1e7874ce69 100644
--- a/lcl/translations.pas
+++ b/lcl/translations.pas
@@ -4,7 +4,7 @@
  *                                                                           *
  *  This file is part of the Lazarus Component Library (LCL)                 *
  *                                                                           *
- *  See the file COPYING.modifiedLGPL.txt, included in this distribution,        *
+ *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
  *  for details about the copyright.                                         *
  *                                                                           *
  *  This program is distributed in the hope that it will be useful,          *
@@ -351,7 +351,7 @@ begin
   po:=nil;
   try
     po:=TPOFile.Create(AFilename);
-    result:=TranslateUnitResourceStrings(ResUnitName,TPOFile.Create(AFilename));
+    result:=TranslateUnitResourceStrings(ResUnitName,po);
   finally
     po.free;
   end;