Error al crear zip y añadirle archivos.

[pgranados]

Buen día compañeros, estoy teniendo un error al crear un zip y añadirle un archivo, no encuentro cual pueda ser el error, parece ser que el archivo.zip esta dañado, puesto a que lo quiero abrir con WinRAR y dice que el fichero esta dañado.

Código Delphi [-]
uses System.Zip;

var Zip:TZipFile;
ruta:string;


Zip := TZipFile.Create;
try
ruta:= 'C:\Users\Paul\Desktop\RESPALDO.ZIP';
Zip.Open(ruta, zmWrite);
Zip.Add('C:\Users\Paul\Desktop\Respaldos\Base.FBK');
finally
Zip.Free;
end;