Fórum backup #328985

Ola amigos boa tarde a todos...
gostaria de saber se alguem ai pode mim ajudar em um sistema de backup que criei... funciona perfeitamente so que tem um problema
quero colocar somentes o seguintes aquivos dentro do arquivo zipado.
*.db , *.MB, logErros, DBDWORK
Mais so conseguir colocar o *.DB, *.MB com a ajuda de um amigo
o resto dar erro

Var Data:String;
i: integer;
begin
If Length(Arquivo.Text)=0 then
begin
ShowMessage(´Nome do Arquivo deve ser informado´);
Arquivo.SetFocus;
end else begin
Data := FormatDateTime(´YYYYMMDD´,now);

if Memo1.Lines.Count = 0 then
WinExec(PChar(´C:\\\\\\\\Arquivos de Programas\\\\\\\\WinZip\\\\\\\\WinZip32 -a -r ´´
+Destino.Caption+´\´+Arquivo.Text+´´ ´+´´´+Origem.Caption+´´´),1)
else
begin
for i := 0 to Memo1.Lines.Count-1 do
begin
if trim(Memo1.Lines[i]) <> ´´ then
WinExec(PChar(´C:\\\\\\\\Arquivos de Programas\\\\\\\\WinZip\\\\\\\\WinZip32 -a -r ´´
+Destino.Caption+´\´+Arquivo.Text+´´ ´+´´´+Origem.Caption+´\´+trim(Memo1.Lines[i])+´´´),1)
{else
begin
for i := 0 to Memo1.Lines.Count-2 do
begin
if trim(Memo1.Lines[i]<> ´´ then
winexec(PChar(´C:\\\\\\\\Arquivos de Programas\\\\\\\\WinZip\\\\\\\\WinZip32 -a -r ´´
+Destino.Caption+´\´+Arquivo.Text+´´ ´+´´´+Origem.Caption+´\´+trim(Memo1.LineStart[i])+´´´),2)
else
begin
for i := 0 to Memo1.Lines.Count-3 do
begin
if trim(Memo1.Lines[i]<> ´´ then
winexec(PChar(´C:\\\\\\\\Arquivos de Programas\\\\\\\\WinZip\\\\\\\\WinZip32 -a -r ´´
+Destino.Caption+´\´+Arquivo.Text+´´ ´+´´´+Origem.Caption+´\´+trim(Memo1.LineStart[i])+´´´),3) }

end;
end;
ShowMessage(´Arquivo ´´+UpperCase(Arquivo.Text)+´.ZIP´ criado na pasta ´´+
UpperCase(Destino.Caption)+´´´);
FileListBox2.Update;

ate a segunda linha de comando
foi blz.. o resto da erro sempre
sobre a variavel q foi adicionada (i)
no aguardo