Erro na inserção firebird

procedure Tfrm_cadcli.gravarcarros;
begin
   with dm.qrsqlgravar do
    begin
        Close;
        Sql.Clear;

        if operacao = 'Add' then
          begin
              SQl.Add('Insert into tbl_veiculo(vei_modelo,vei_ano,vei_placa)'+
                      'values (:veimodelo,:veiano,:veiplaca)');


                      if rdg_pfpj.ItemIndex = 0 then
                     begin
                         Sql.Add('insert into tbl_veiculo(vei_pf_codigo) values (select max(pf_codigo) from tbl_pessoa_fisica)');
                     end
                     else if rdg_pfpj.ItemIndex = 1 then
                     begin
                      Sql.Add('insert into tbl_veiculo(vei_pj_codigo) values (select max(pj_codigo) from tbl_pessoa_juridica)');
                     end;

                      end
                      else if operacao = 'Edit' then
                      begin
                      if rdg_pfpj.ItemIndex = 0 then
                      begin
                          Sql.Add('Update tbl_veiculo '+
                                   'set vei_modelo=:veimodelo,vei_ano=:veiano,vei_placa=:veiplaca'+
                                   'where vei_codigo=:veicodigo');
                      end
                      else begin
                          Sql.Add('Update tbl_veiculo '+
                                   'set vei_modelo=:veimodelo,vei_ano=:veiano,vei_placa=:veiplaca'+
                                   'where vei_codigo=:veicodigo');
                      end;
                      end;
                      
                      ParamByName('veicodigo').AsInteger:=strtoint(dbedit1.Text);
                      ParamByName('veimodelo').AsString:=edt_vei_modelo.Text;
                      ParamByName('veiano').AsString:=edt_vei_ano.Text;
                      ParamByName('veiplaca').AsString:=edt_vei_placa.Text;


                      try
                       qrsqlgravar.ExecSQL();
                       Refresh;
                      Except
                       on E:Exception do
                       begin
                          showmessage('Erro ao Gravar Dados !');
                          exit;
                       end;

TABELA DADOS                            TABELA PESSOA FISICA              TABELA VEICULO
dados_codigo  <------------------->  pf_dados_codigo ----->fk <-------->v_pf_codigo  ---->fk
dados_nome                                 pf_codigo ------------>pk                  v_codigo   -------->pk
dados_tal                                      pf_tal                                               v_tal
dados_taltal                                   pf_taltal                                    v_taltal