botao alterar o que está errado

Esta aparecendo a mensgem:

Project Raised class EIBClienteError with mesage sql parse error.
eof in string detect process stopped use stop or run to continued.

rocedure TformForn.btnAlterarClick(Sender: TObject);
Var
strcomando:string;
begin
posicao1;
strcomando:= ´UPDATE cadastrofornecedor set ´+
´RazaoSocial=´+#39 + edtRazaoSocial.text+39+ ´,´+
´NomeFantasia= ´+39+edtNomeFantasia.text+39+´,´+
´CNPJ= ´+39+mskCNPJ.text +39+ ´,´+
´InscricaoEstadual= ´+39+mskInscEstadual.text+39+´,´+
´Endereco= ´+39+edtEndereco.Text+39+´,´+
´Bairro= ´+39+edtBairro.text+39+´,´+
´Cidade= ´+39+edtCidade.Text+39+´,´+
´Telefone= ´+39+mskTelefone.text+39+´,´+
´Fax= ´+39+ edtFax.Text+39+´,´+
´DataCadastro=´+39+txtdataCadastro.Text+´,´+
´Representantevendas= ´+#39+edtrepresentanteVendas.text+39+´,´+
´TelefoneVendas= ´+39+mskTelefoneVendas.text+39+
´Where CodigoFornecedor= ´+39+strchave+39;
dmBaseDados1.qryFornecedores.SQL.Clear;
dmbaseDados1.qryFornecedores.SQL.Add(strComando);
dmBaseDados1.qryFornecedores.Prepare;
dmBaseDados1.qryFornecedores.ExecSQL;
Mensagem(´Atualização efetuada Com sucesso!´);
limpatela;

end;