Type Mismatch in Expression

var a:integer;
begin
cursor:=crhourglass;
a:=listbox1.items.Count;
while a>-1 do
begin
Query1.SQL.Clear;
query1.SQL.add(´update vennota set equipamento=´+quotedstr(edit2.text));
query1.sql.add(´where nota=´+(LISTBOX1.Items.ValueFromIndex[a-1])+´ and ´);
query1.SQL.Add(´emissao between ´+(maskedit1.text)+´ and ´+(maskedit2.text));
query1.SQL.Add(´and estabe = ´+quotedstr(edit1.Text));
query1.execsql;
label3.Caption:=´Atualizando nota ´+(LISTBOX1.Items.ValueFromIndex[a-1]);
a:=a-1;
end;
cursor:=crdefault;
label3.Caption:=´Atualização Concluída´;


Só que quando vou executar o comando dá um erro (´Type Mismatch in Expression´).E aí, q q eu tô fazendo de errado?

[b:de5bfe4044][color=red:de5bfe4044]Título editado pelo Moderador (AZ) [/color:de5bfe4044][/b:de5bfe4044]