Fórum Erro ao compactar com winzip.. #295656

Bom dia pessoal.. estou tentando compactar meu banco de dados com winzip, mas com a rotina que estou usando ele está me dizendo que está dando erros no winzip.. dizendo que o bd está aberto.. e grava corrompido ..

esse é o meu codigo..

18: BEGIN
If savedialog.Execute then
Begin
[b:7adfe34628]Fecha;[/b:7adfe34628]
Origem := ´C:\Balanca\Veiculos.mdb´;
If FileExists(Trim(Origem)) then
Begin
Try
SHELLEXECUTE(0,NIL,´WINZIP32.EXE´,PChar(´-min -a -ex ´´ + Savedialog.Filename + ´´ ´ + ´´´ + Origem + ´´´),NIL,SW_SHOW);
except
begin
Application.Messagebox(´Ocorreram erros.´,´Backup´,mb_iconinformation+mb_Ok);
exit;
end;
end;
end
else
MessageDlg(´Não foi encontrado o arquivo,´+#13+´C:\Balança\Veiculos.mdb´,mtInformation,[mbOK],0);
end;

a procedure Fecha descrito acima.. eu fecho todas as tabelas.

procedure TFRMMENU.Fecha;
begin
DTDB.LOGIN.Connected := false;
// Desabilita as tabelas
DTDB.VEI.Active := false;
DTDB.COF.Active :=false;
DTDB.LEI.Active :=false;
DTDB.MED.Active :=false;
DTDB.MUN.Active :=false;
DTDB.REP.Active :=false;
DTDB.EXC.Active :=false;
DTDB.OPE.Active :=false;
DTDB.ESP.Active :=false;
DTDB.CAT.Active :=false;
DTDB.COR.Active :=false;
DTDB.MUL.Active :=false;
DTDB.MAR.Active :=false;
DTDB.MDENATRAN.Active :=false;
DTDB.MULR.Active :=false;
DTDB.LEG.Active :=false;
DTDB.TIP.Active :=false;
//Desabilitando as consultas
DTDB.REPESAGEM.Active :=false;
DTDB.INFRACOES.Active :=false;
DTDB.AGRUPADO.Active :=false;
DTDB.FLUXO.Active :=false;
DTDB.RELACAO.Active :=false;
DTDB.Eixo.Active :=false;
DTDB.ExcessoEixo.Active :=false;
DTDB.EXCESSO.Active :=false;
DTDB.Incrementa.Active :=false;
end;

alguém pode me ajudar nessa.. tenho que entregar isso hj!!!


valeu mesmo
Eric