Fórum Erro ZipMaster : quot;This archive is not a valid zip archi #290900

Colegas..

Não estou conseguindo compactar nenhum arquivo..

segue o código do botão para compactação..

procedure TfrmZP.btnIniciarClick(Sender: TObject);
begin
if not FileExists(dtvPasta.Directory+Trim(txtNomeArquivo.Text)+´.ZIP´) then
begin
FileClose(FileCreate(
dtvPasta.Directory+Trim(txtNomeArquivo.Text)+´.ZIP´, zimCompactar.ZipFileSize));
end;
zimCompactar.ZipFileName := dtvPasta.Directory+Trim(txtNomeArquivo.Text)+´.ZIP´; //linha do erro
zimCompactar.FSpecArgs.Clear;
zimCompactar.FSpecArgs.Assign(lsbArquivos.Items);
try
zimCompactar.Add;
except on E:Exception do
MessageDlg(´Erro ao compactar. Erro : ´+E.message, mterror, [mbOk], 0);
end;
end;

Alguém sabe me falar o que pode estar errado???


Agradeço a todos antecipadamente..