Compactar com WinZip

Alguem pode ajudar-me? não sei onde estou errando.

Faço a conexão assim e funciona legal.

DMDados.Connected := False; DMDados.ConnectionString := ´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=´+ExtractFilePath(Application.ExeName)+´ControleOficina.mdb;Persist Security Info=False´;
DMDados.Connected := True

=====================================
Quando vou compactar e copiar para o disquete gera o erro.

procedure TfrmMenu.Copiar1Click(Sender: TObject);

begin
DMDados.Connected:=false;
if not FileExists(´A:\nul´) then
ShowMessage(´Insira um disco formatado na unidade A: para fazer o Backup!´)
else
begin
ShellExecute(0,nil,´winzip32.EXE´, ´-a a:\ControleOficina.zip ExtractFilePath(Application.ExeName)+ ControleOficina.mdb´,nil,sw_show);
end;
Exit;

DMDados.Connected:=true;

end;


=================
Gera esse erro:

Action: Add (and replace) files Include subfolders: yes Save full path: no
Warning: name not matched: =
Warning: name not matched: ExtractFilePath(Application.ExeName)+
Adding ControleOficina.mdb
creating Zip file a:\ControleOficina.zip

Obrigado a quem ajudar-me.