problema a la hora de comprimir con abbrevia

[danielmj]

Hola,

estoy teniendo problemas a la hora de comprimir un archivo, el código que tengo es este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=  'C:\Users\dani\Desktop\psrFactura.csv';
  Zip := TAbZipper.Create(Application);
  zip.FileName:= 'C:\Users\dani\Desktop\psrFactura.zip';
//  zip.Password:= '123456789abcdef';
  zip.Save;
end;
end.

El problema es que el archivo que se crea con extensión .zip pesa 0 bytes y no se puede abrir, dice que está dañado. ¿alguna idea?

Saludos y gracias.