diff --git a/ide/projectinspector.pas b/ide/projectinspector.pas
index 1553295607..0dd5012f34 100644
--- a/ide/projectinspector.pas
+++ b/ide/projectinspector.pas
@@ -401,10 +401,7 @@ end;
 procedure TProjectInspectorForm.AddBitBtnClick(Sender: TObject);
 var
   OpenDialog: TOpenDialog;
-  AFilename: string;
   i: Integer;
-  NewListItem: TListItem;
-  NewPgkFileType: TPkgFileType;
   ADirectory: String;
 begin
   OpenDialog:=TOpenDialog.Create(nil);
@@ -435,8 +432,6 @@ procedure TProjectInspectorForm.AddMoreBitBtnClick(Sender: TObject);
 var
   AddResult: TAddToProjectResult;
   i: Integer;
-  NewFilename: string;
-  NewFile: TUnitInfo;
 begin
   if ShowAddToProjectDlg(LazProject,AddResult)<>mrOk then exit;
 
@@ -479,8 +474,6 @@ procedure TProjectInspectorForm.FormDropFiles(Sender: TObject;
   const FileNames: array of String);
 var
   i: Integer;
-  NewFilename: String;
-  NewFile: TUnitInfo;
 begin
   {$IFDEF VerboseProjInspDrag}
   debugln(['TProjectInspectorForm.FormDropFiles ',length(FileNames)]);
diff --git a/packager/packageeditor.pas b/packager/packageeditor.pas
index 0b4aa9d02b..268d8a912d 100644
--- a/packager/packageeditor.pas
+++ b/packager/packageeditor.pas
@@ -1358,14 +1358,7 @@ procedure TPackageEditorForm.FormDropFiles(Sender: TObject;
   const FileNames: array of String);
 var
   i: Integer;
-  NewFilename: String;
-  NewFileType: TPkgFileType;
-  NewUnitName: String;
-  HasRegister: Boolean;
-  NewFlags: TPkgFileFlags;
-  Code: TCodeBuffer;
   NewUnitPaths, NewIncPaths: String;
-  CurDir: String;
 begin
   {$IFDEF VerbosePkgEditDrag}
   debugln(['TPackageEditorForm.FormDropFiles ',length(FileNames)]);