Não consigo salvar nada na tabela de clientes. qq pode ser?

CREATE TABLE public.vendedores (
  codigo int8 DEFAULT nextval(´public.vendedores_codigo_seq´::text) NOT NULL, 
  nome varchar(50), 
  logradouro varchar(30), 
  complemento varchar(10), 
  cidade varchar(30), 
  bairro varchar(30), 
  cep varchar(10), 
  uf varchar(2), 
  fone_res1 varchar(14), 
  fone_res2 varchar(14), 
  fone_cel varchar(14), 
  rg varchar(15), 
  cpf varchar(15), 
  email varchar(50), 
  tipo varchar(10), 
  comissao float4, 
  obs1 varchar(100), 
  obs2 varchar(100), 
  obs3 varchar(100), 
  obs4 varchar(100), 
  obs5 varchar(100), 
  CONSTRAINT xpkvendedores PRIMARY KEY (codigo)
) WITH OIDS;

CREATE TABLE public.clientes (
  codigo int8 DEFAULT nextval(´public.clientes_codigo_seq´::text) NOT NULL, 
  cod_ven int8, 
  razao varchar(50), 
  fone_res varchar(14), 
  fone_res2 varchar(14), 
  endereco varchar(50), 
  tipo varchar(5), 
  complemento varchar(10), 
  bairro varchar(30), 
  cidade varchar(50), 
  cep char(10), 
  uf varchar(2), 
  fone_cel varchar(14), 
  email varchar(50), 
  cgc varchar(18), 
  inscricao varchar(18), 
  ramal varchar(10), 
  obs1 varchar(50), 
  obs2 varchar(50), 
  obs3 varchar(50), 
  data date, 
  CONSTRAINT xpkclientes PRIMARY KEY (codigo), 
  CONSTRAINT fkclientes_vendedores FOREIGN KEY (cod_ven) REFERENCES clientes (codigo) ON DELETE NO ACTION ON UPDATE NO ACTION NOT DEFERRABLE INITIALLY IMMEDIATE
) WITH OIDS;

        Tabelas.DBStoc.StartTransaction;
        Tabelas.QGeral.Close;
        Tabelas.QGeral.SQl.Clear;          
        Tabelas.QGeral.SQl.Add(´INSERT INTO clientes (data, currval(cod_ven), razao, fone_res, fone_res2, ramal, fone_cel, endereco, complemento, bairro, cidade, uf, cep, email, inscricao, cgc, obs1, obs2, obs3) ´);
        Tabelas.QGeral.SQL.Add(´VALUES (´ + ´´´´ + MaskEdit3.Text + ´´´´ + ´, ´ + ´´´´ + ´vcod_ven´ + ´´´´ + ´, ´
                                          + ´´´´ + Edit4.Text + ´´´´ + ´, ´ + ´´´´ + MaskEdit4.Text + ´´´´ + ´, ´
                                          + ´´´´ + MaskEdit5.Text + ´´´´ + ´, ´ + ´´´´ + Edit5.Text + ´´´´ + ´, ´
                                          + ´´´´ + MaskEdit6.Text + ´´´´ + ´, ´ + ´´´´ + Combobox2.Text + ´´´´ + ´, ´
                                          + ´´´´ + Edit7.Text + ´´´´ + ´, ´ + ´´´´ + Edit8.Text + ´´´´ + ´, ´
                                          + ´´´´ + edtUF.Text + ´´´´ + ´, ´ + ´´´´ + MaskEdit7.Text + ´´´´ + ´, ´
                                          + ´´´´ + Edit10.Text + ´´´´ + ´, ´ + ´´´´ + edtinscricao.Text + ´´´´ + ´, ´
                                          + ´´´´ + MaskEdit8.Text + ´´´´ + ´, ´ + ´´´´ + Edit9.Text + ´´´´ + ´, ´
                                          + ´´´´ + Edit11.Text + ´´´´ + ´, ´ + ´´´´ + Edit12.Text + ´´´)´);

        try
           Tabelas.QGeral.Prepared := True;
           Tabelas.QGeral.ExecSQL;
        except
           on EDBEngineError do
              Begin 
              Tabelas.DBStoc.Rollback;
              MessageDlg(´Não foi possível Inserir o Item Cliente !´, mtError, [mbOK], 0);
              Abort;
              Exit;
              end;
        end;
        //Terminando Transação com efetivação das modificações
        Tabelas.DBStoc.Commit;