O QUE PODE ESTA ERRADO NESSE CÓDIGO Update

O QUE PODE ESTA ERRADO NESSE CÓDIGO Update

procedure TFRM_Fornecedor.EditarFornecedor(Sender: TObject);
begin
with IBQry_Insert_Fornecedor do
begin
Close;
Sql.Clear;
Sql.Text := Update FORNECEDORES set(+
C9CODPRE, +
C6RAZAO, +
C6NOMFANTA, +
C6ENDERECO, +
C6CIDADE, +
C6UF, +
C6CGC, +
C6CPF, +
C6RG, +
C6CEP, +
C6EMAIL, +
C6TIPOFORN, +
C6RESPONSAVEL, +
C6CPFRESPONSAVEL, +
C6CARGORESPONSAVEL, +
D6INSCRICAO, +
C6RAMOSATIVIDADES, +
C6FONE, +
C6FAX, +
C6CGF, +
C6INSCESTADUAL, +
C6PISPASEP) +

VALUES ( +

:C9CODPRE, +
:C6RAZAO, +
:C6NOMFANTA, +
:C6ENDERECO, +
:C6CIDADE, +
:C6UF, +
:C6CGC, +
:C6CPF, +
:C6RG, +
:C6CEP, +
:C6EMAIL, +
:C6TIPOFORN, +
:C6RESPONSAVEL, +
:C6CPFRESPONSAVEL, +
:C6CARGORESPONSAVEL, +
6INSCRICAO, +
:C6RAMOSATIVIDADES, +
:C6FONE, +
:C6FAX, +
:C6CGF, +
:C6INSCESTADUAL, +
:C6PISPASEP);

ParamByName(C9CODPRE).AsString :=(Combo_C9CODPRE.Text);
ParamByName(C6RAZAO).AsString :=(Edit_C6RAZAO.Text);
ParamByName(C6NOMFANTA).AsString :=(Edit_C6NOMFANTA.Text);
ParamByName(C6ENDERECO).AsString :=(Edit_C6ENDERECO.Text);
ParamByName(C6CIDADE).AsString :=(Edit_C6CIDADE.Text);
ParamByName(C6UF).AsString :=(Combo_C6UF.Text);
ParamByName(C6CEP).AsString :=(Edit_C6CEP.Text);
ParamByName(C6CGC).AsString :=(Edit_C6CGC.Text);
ParamByName(C6CPF).AsString :=(Edit_C6CPF.Text);
ParamByName(C6RG).AsString :=(Edit_C6RG.Text);
ParamByName(C6EMAIL).AsString :=(Edit_C6EMAIL.Text);
ParamByName(C6TIPOFORN).AsString :=(Edit_C6TIPOFORN.Text);
ParamByName(C6RESPONSAVEL).AsString :=(Edit_C6RESPONSAVEL.Text);
ParamByName(C6CPFRESPONSAVEL).AsString :=(Edit_C6CPFRESPONSAVEL.Text);
ParamByName(C6CARGORESPONSAVEL).AsString :=(Edit_C6CARGORESPONSAVEL.Text);
ParamByName(D6INSCRICAO).AsDate :=date;
ParamByName(C6RAMOSATIVIDADES).AsString :=(Memo_C6RAMOSATIVIDADES.Text);
ParamByName(C6FONE).AsString :=(Edit_C6FONE.Text);
ParamByName(C6FAX).AsString :=(Edit_C6FAX.Text);
ParamByName(C6CGF).AsString :=(Edit_C6CGF.Text);
ParamByName(C6INSCESTADUAL).AsString :=(Edit_C6INSCESTADUAL.Text);
ParamByName(C6PISPASEP).AsString :=(Edit_C6PISPASEP.Text);

ExecSql;
ShowMessage(Alterado com sucesso);
end;
end;