Erro de insert e update em delphi e mysql usando zeos

Olá pessoal
Preciso de uma ajuda urgente, to com um problema com uma sintax de sql e naum acho o problema, ai vai

if v_acao = ´incluir´ then
begin
Data_Modulo.Q_fornecedor.Close;
Data_Modulo.Q_fornecedor.SQL.Clear;
Data_Modulo.Q_fornecedor.SQL.Add(´insert into fornecedor (Nome, Razao, Tipo, Endereco, Complemento, Bairro, Cidade, Cep, Inscricao, CGC, Telefones, Fax, Email, Email, Cotar, Observacao, Dt_Cadastro)´+´ values (´´+dbe_nome.Text+´´, ´+´ ´´+dbe_razao.Text+´´, ´+´ ´´+v_pessoa+´´, ´+´ ´´+dbe_endereco.Text+´´, ´+´ ´´+dbe_complemento.Text+´´, ´+´ ´´+dbe_bairro.Text+´´, ´+´ ´´+dbe_cidade.Text+´´, ´+´ ´´+dbe_cep.Text+´´, ´+´ ´´+dbe_incricao.Text+´´, ´+´ ´´+dbe_cnpj.Text+´´, ´+´ ´´+dbe_telefone.Text+´´, ´+´ ´´+dbe_fax.Text+´´, ´+´ ´´+dbe_email.Text+´´, ´+´ ´´+v_cotar+´´, ´+´ ´´+dbe_obs.Text+´´, ´+´ ´+dbe_data_cadastro.Date+´ ´);
Data_Modulo.Q_fornecedor.ExecSQL;
Data_Modulo.Q_fornecedor.Open;
end
else if v_acao = ´alterar´ then
begin
Data_Modulo.Q_fornecedor.Close;
Data_Modulo.Q_fornecedor.SQL.Clear;
Data_Modulo.Q_fornecedor.SQL.Add(´Update set fornecedor Nome = ´´+dbe_nome.Text+´´, Razao = ´´+dbe_razao.Text+´´´);
Data_Modulo.Q_fornecedor.ExecSQL;
Data_Modulo.Q_fornecedor.Open;

end;

Obrigado