diff --git a/ide/checklfmdlg.pas b/ide/checklfmdlg.pas
index d9c41a010c..92ea278781 100644
--- a/ide/checklfmdlg.pas
+++ b/ide/checklfmdlg.pas
@@ -132,11 +132,6 @@ function RepairLFMBuffer(PascalBuffer, LFMBuffer: TCodeBuffer;
   const OnOutput: TOnAddFilteredLine;
   RootMustBeClassInUnit, RootMustBeClassInIntf,
   ObjectsMustExist: boolean): TModalResult;
-// Not use anywhere.
-{function RepairLFMText(PascalBuffer: TCodeBuffer; var LFMText: string;
-  const OnOutput: TOnAddFilteredLine;
-  RootMustBeClassInIntf, ObjectsMustExist: boolean): TModalResult;
-}
 // dangling events
 function RemoveDanglingEvents(RootComponent: TComponent;
   PascalBuffer: TCodeBuffer; OkOnCodeErrors: boolean;
@@ -270,26 +265,6 @@ begin
   end;
 end;
 
-{
-function RepairLFMText(PascalBuffer: TCodeBuffer; var LFMText: string;
-  const OnOutput: TOnAddFilteredLine;
-  RootMustBeClassInIntf, ObjectsMustExist: boolean): TModalResult;
-var
-  LFMBuf: TCodeBuffer;
-begin
-  Result:=mrCancel;
-  LFMBuf:=CodeToolBoss.CreateTempFile('temp.lfm');
-  try
-    LFMBuf.Source:=LFMText;
-    Result:=RepairLFMBuffer(PascalBuffer,LFMBuf,OnOutput,RootMustBeClassInIntf,
-                            ObjectsMustExist);
-    LFMText:=LFMBuf.Source;
-  finally
-    CodeToolBoss.ReleaseTempFile(LFMBuf);
-  end;
-end;
-}
-
 function RemoveDanglingEvents(RootComponent: TComponent;
   PascalBuffer: TCodeBuffer; OkOnCodeErrors: boolean; out
   ComponentModified: boolean): TModalResult;
diff --git a/ide/lfmunitresource.pas b/ide/lfmunitresource.pas
index a31ad95137..002e7afe68 100644
--- a/ide/lfmunitresource.pas
+++ b/ide/lfmunitresource.pas
@@ -126,7 +126,7 @@ class function TLFMUnitResourcefileFormat.QuickCheckResourceBuffer(PascalBuffer,
   LFMBuffer: TObject; out LFMType, LFMComponentName, LFMClassName: string; out
   LCLVersion: string; out MissingClasses: TStrings): TModalResult;
 begin
-  result := QuickCheckLFMBuffer(PascalBuffer as TCodeBuffer, LFMBuffer as TCodeBuffer, LFMType, LFMComponentName, LFMClassName,
+  Result := QuickCheckLFMBuffer(PascalBuffer as TCodeBuffer, LFMBuffer as TCodeBuffer, LFMType, LFMComponentName, LFMClassName,
     LCLVersion, MissingClasses);
 end;