Error al crear zip y añadirle archivos.

[dec]

Hola a todos,

Al menos en Delphi 10.4 no puedo reproducir el problema, es decir, el siguiente código funciona como se espera, y, en efecto, puedo abrir el archivo "zip" con WinRar sin problemas:

Código Delphi [-]
var
  Zip: TZipFile;
begin
  Zip := TZipFile.Create;
  try
    Zip.Open(ExtractFilePath(ParamStr(0)) + 'My.zip', zmWrite);
    Zip.Add(ExtractFilePath(ParamStr(0)) + 'Unit1.dcu');
  finally
    Zip.Free;
  end;
end;