UPD: Use reversed "delete to trash" settings when pressing Shift + Delete button.

src/fmain.lfm

@@ -1225,9 +1225,10 @@ object frmMain: TfrmMain
       Height = 20
       Top = 0
       Width = 95
-      Action = actDelete
+      Caption = 'Delete F8'
       Flat = True
       NumGlyphs = 0
+      OnClick = btnF8Click
     end
     object btnF9: TSpeedButton
       Left = 570

src/fmain.lrt

@@ -16,6 +16,7 @@ TFRMMAIN.BTNRIGHTDIRECTORYHOTLIST.CAPTION=*
 TFRMMAIN.BTNRIGHTEQUALLEFT.HINT=Show current directory of the left panel in the right panel
 TFRMMAIN.BTNRIGHTEQUALLEFT.CAPTION=>
 TFRMMAIN.LBLCOMMANDPATH.CAPTION=Path
+TFRMMAIN.BTNF8.CAPTION=Delete F8
 TFRMMAIN.BTNF9.CAPTION=Terminal F9
 TFRMMAIN.BTNF10.CAPTION=Exit F10
 TFRMMAIN.MNUFILES.CAPTION=&Files

src/fmain.pas

@@ -384,6 +384,7 @@ type
     procedure AllOpPauseClick(Sender: TObject);
     procedure AllOpPctClick(Sender: TObject);
     procedure AllOpStartClick(Sender: TObject);
+    procedure btnF8Click(Sender: TObject);
     procedure btnLeftClick(Sender: TObject);
     procedure btnLeftDirectoryHotlistClick(Sender: TObject);
     procedure btnRightClick(Sender: TObject);
@@ -818,6 +819,14 @@ begin
    OperationsManager.StartRunning;
 end;
 
+procedure TfrmMain.btnF8Click(Sender: TObject);
+begin
+  if GetKeyShiftStateEx * KeyModifiers = [ssShift] then
+    Actions.cm_Delete('recyclesettingrev')
+  else
+    Actions.cm_Delete('');
+end;
+
 procedure TfrmMain.btnLeftDirectoryHotlistClick(Sender: TObject);
 Var P:TPoint;
 begin

src/platform/ukeyboard.pas

@@ -46,6 +46,7 @@ const
     SmkcDown, SmkcIns, SmkcDel, SmkcShift, SmkcCtrl, SmkcAlt,
     SmkcWin);
 
+  KeyModifiers: TShiftState = [ssShift, ssAlt, ssCtrl, ssMeta, ssSuper, ssHyper, ssAltGr];
 
   {en Retrieves current modifiers state of the keyboard. }
   function GetKeyShiftStateEx: TShiftState;