diff --git a/ide/main.pp b/ide/main.pp
index 5730f1fb58..424941f0a0 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -9079,7 +9079,7 @@ function TMainIDE.DoSaveEditorFile(AEditor: TSourceEditorInterface;
   Flags: TSaveFlags): TModalResult;
 var
   AnUnitInfo: TUnitInfo;
-  TestFilename, DestFilename, LFMSuffix: string;
+  TestFilename, DestFilename: string;
   LRSCode, LFMCode: TCodeBuffer;
   MainUnitInfo: TUnitInfo;
   OldUnitName: String;