few changes, little bug fix for ESF (again)

installer/installer/UnitFunctions.pas

@@ -66,7 +66,7 @@ begin
   try
     eRegistry.RootKey := HKEY_CURRENT_USER;
     if eRegistry.OpenKey('Software\Valve\Steam', False) then
-      Result := IncludeTrailingBackslash(StringReplace(eRegistry.ReadString('SteamPath'), '/', '\', [rfReplaceAll])) + 'SteamApps\'
+      Result := IncludeTrailingPathDelimiter(StringReplace(eRegistry.ReadString('SteamPath'), '/', '\', [rfReplaceAll])) + 'SteamApps\'
     else
       Result := '';
   except

installer/installer/UnitInstall.pas

@@ -486,7 +486,7 @@ begin
         end;
         modESF: begin
           if Pos('esf', FileList[i]) = 1 then begin
-            AddStatus('Copying file: addons\amxmodx\' + Copy(FileList[i], 4, Length(FileList[i])), clBlack);
+            AddStatus('Copying file: addons\amxmodx\' + Copy(FileList[i], 5, Length(FileList[i])), clBlack);
             FileCopy(ExtractFilePath(ParamStr(0)) + 'files\' + FileList[i], ePath + 'addons\amxmodx\' + Copy(FileList[i], 4, Length(FileList[i])), CopyConfig);
           end;
         end;
@@ -596,6 +596,8 @@ var eStr: TStringList;
     CopyConfig: Boolean;
     eGoBack: Boolean;
 begin
+  eGoBack := False;
+
   Screen.Cursor := crAppStart;
   frmMain.cmdCancel.Show;
   frmMain.cmdCancel.Caption := '&Cancel';