Fórum ero SQL #152432

Estou dando fazer a alteração em um registro em SQL e está apresentando o seguinte erro:


Project project1.exe raised exception class EIBClienteError with message SQL Parse
Erro.
EOF in string Detected. Prosse Stopped. Use Step or Run to continue.


Meu Código:
procedure TfrmFornecedores.btnAlterarClick(Sender: TObject);
Var
strcomando:string;
begin
//posicao1;
strcomando:= ´UPDATE cadastrofornecedor set ´+
´RazaoSocial=´+#39 + txtRazaoSocial.text+39+ ´,´+
´NomeFantasia= ´+39+txtNomeFantasia.text+39+´,´+
´CNPJ= ´+39+mskCNPJ.text +39+ ´,´+
´InscricaoEstadual= ´+39+mskInscEstadual.text+39+´,´+
´Endereco= ´+39+txtEndereco.Text+39+´,´+
´Bairro= ´+39+txtBairro.text+39+´,´+
´Cidade= ´+39+txtCidade.Text+39+´,´+
´Telefone= ´+39+mskTelefone.text+39+´,´+
´Fax= ´+#39+ mskFax.Text+39+´,´+
´DataCadastro=´+39+txtdataCadastro.Text+´,´+
´Representantevendas= ´+39+txtrepresentanteVendas.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;