Zipmaster und Savedialog

[horst]

Hallo...
ich möchte ein bestimmtes verzeichnis in ein zipfile packen.
das mache ich so, was auch funktioniert:

Delphi-Quellcode:

procedure TForm8.dxButton1Click(Sender: TObject);
var
  i: Integer;
  dir: string;
begin
  ZipMaster1.DLLDirectory := ExtractFilePath(ParamStr(0));

  if punkteimp.Checked[0] then begin
    edit1.Text := 'eigene-kategorien';
    ZipMaster1.FSpecArgs.Add('\data\' + edit1.Text + '\*.*');
  end;

  ZipMaster1.AddOptions := [AddDirNames, AddRecurseDirs];
  ZipMaster1.ZipFileName := 'c:\temp\data.zip';
  ZipMaster1.add;
end

folgendes funktioniert nicht, weiß jemand warum?

Delphi-Quellcode:

procedure TForm8.dxButton1Click(Sender: TObject);
var
  i: Integer;
  dir: string;
begin
  if SaveDialog1.Execute = true then begin
    ZipMaster1.DLLDirectory := ExtractFilePath(ParamStr(0));

    if punkteimp.Checked[0] then begin
      edit1.Text := 'eigene-kategorien';
      ZipMaster1.FSpecArgs.Add('\data\' + edit1.Text + '\*.*');
    end;

    ZipMaster1.AddOptions := [AddDirNames, AddRecurseDirs];
    zipmaster1.ZipFileName := savedialog1.FileName;
    ZipMaster1.add;

  end;
end;

gruss
horst