From 329861f95c9052ebb82d6fadf4cf57b635c086de Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 13 Oct 2009 20:21:36 +0000
Subject: [PATCH] LCL: clean up

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

diff --git a/lcl/translations.pas b/lcl/translations.pas
index 5989370623..d10d0cecba 100644
--- a/lcl/translations.pas
+++ b/lcl/translations.pas
@@ -479,7 +479,7 @@ var
 begin
   f := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead or fmShareDenyNone);
   try
-    Self.Create(f, Full);
+    Create(f, Full);
     if FHeader=nil then
       CreateHeader;
   finally
@@ -492,7 +492,7 @@ var
   Size: Integer;
   s: string;
 begin
-  Self.Create;
+  Create;
   
   FAllEntries := Full;