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;