Fix invalid typecast

1 files changed, 2 insertions, 2 deletions

diff --git a/UMain.pas b/UMain.pas
index 057dd3a..130223d 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -1723,7 +1723,7 @@ begin
     if ((Ext = 'SFV') or (Ext = 'MD5')) and (Engine is TLocalTreeEngine) then miVerifyChecksumsClick(Self) else
     if ((Ext = 'CRC') or (Ext = '001')) and (Engine is TLocalTreeEngine) then miMergeFilesClick(Self) else
     if not HandleVFSArchive(LeftPanel, IncludeTrailingPathDelimiter(Engine.Path) + String(Data^.FName), String(Data^.FName), '/') then
-    if (not ConfUseURI) or ((Engine is TVFSEngine) and TVFSEngine(Engine).ArchiveMode)
+    if (not ConfUseURI) or (not (Engine is TVFSEngine)) or ((Engine is TVFSEngine) and TVFSEngine(Engine).ArchiveMode)
       then RunFile(IncludeTrailingPathDelimiter(Engine.Path) + String(Data^.FName), Engine, -1)
       else RunFile(IncludeTrailingPathDelimiter((Engine as TVFSEngine).GetPathURI) + String(Data^.FName), Engine, -1);
   end;
@@ -4496,7 +4496,7 @@ begin
     Engine := RightPanelEngine;
     AListView := RightListView;
   end;
-  if ConfUseURI and ((Engine is TVFSEngine) and (not (Engine as TVFSEngine).ArchiveMode))
+  if ConfUseURI and (Engine is TVFSEngine) and (not (Engine as TVFSEngine).ArchiveMode)
     then FileName := IncludeTrailingPathDelimiter((Engine as TVFSEngine).GetPathURI)
     else FileName := IncludeTrailingPathDelimiter(Engine.Path);
   if Assigned(AListView.Selected) and Assigned(AListView.Selected.Data) and (not PDataItem(AListView.Selected.Data)^.UpDir)