problemas com compactação winzip..

olá galera..
não estou encontrando o erro nesse código.. e gostaria se possível da ajuda de vcs..

Var
DirDestino,Destino,Origem : String;
Data:String;
Begin
Origem := ´C:\Balanca\Veiculos.mdb´;
If FileExists(Trim(Origem)) then
Begin
DirDestino := DirList.Directory;
Destino:= ´ ´+DirDestino +´Veiculos.zip´;
If FileExists(Trim(Destino)) then
Begin
MessageDlg(´Arquivo de backup existente. Ele será atualizado.´,mtInformation,[mbOK],0);
End;
Try
ShellExecute(0,NIL,´WINZIP32.EXE´,PChar(´-min -a -ex ´´ + Destino + ´´ ´ + ´´´ + Origem + ´´´),NIL,SW_SHOW);
except
begin
Application.Messagebox(´Ocorreram erros.´,´Backup´,mb_iconinformation+mb_Ok);
exit;
end;
end;

está dando o erro..

invalidfiled C:\Eric\ C:\EricVeiculos.zip

obrigado

end
else
MessageDlg(´Não foi encontrado o arquivo,´+#13+´C:\Balança\Veiculos.mdb´,mtInformation,[mbOK],0);
End;