diff --git a/windows/src/engine/kmcomapi/processes/package/kpinstallpackage.pas b/windows/src/engine/kmcomapi/processes/package/kpinstallpackage.pas index 98c1d8e201..b82f8d74f9 100644 --- a/windows/src/engine/kmcomapi/processes/package/kpinstallpackage.pas +++ b/windows/src/engine/kmcomapi/processes/package/kpinstallpackage.pas @@ -161,6 +161,7 @@ begin FTempOutPath := buf; FTempOutPath := FTempOutPath + '\'; inf := nil; + // #TODO 6570Check we can access the file and display an error if we can't, then exit. FZip := TZipFile.Create; try FZip.Open(FileName, TZipMode.zmRead);