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;