with DM.qrySave do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Insert Into TC_Customer (');
      SQL.Add('Seq,Cd,CdDetail,GroupName,CorSect,SaleSect,');
      SQL.Add('CusName,CusDetail,SalePay,ChargeName,Tel,');
      SQL.Add('MobTel,Fax,Depart,ChargePosition,Mail,Addr,');
      SQL.Add('Zip,HouseAddr,HouseZip,ChargeYN,SexYN,BillDay,');
      SQL.Add('BillCheck,InDay,InBankName,InName,PayMethod,');
      SQL.Add('CreditName,CreditNum,CreditPeriod,CancleYN,Memo');
      SQL.Add(')');
      SQL.Add('values   ');
      SQL.Add('(:sSeq,:sCd,:sCdDetail,:sGroupName,:sCorSect,:sSaleSect, ');
      SQL.Add(':sCusName,:sCusDetail,:sSalePay,:sChargeName,:sTel,      ');
      SQL.Add(':sMobTel,:sFax,:sDepart,:sChargePosition,:sMail,:sAddr,    ');
      SQL.Add(':sZip,:sHouseAddr,:sHouseZip,:sChargeYN,:sSexYN,:sBillDay,      ');
      SQL.Add(':sBillCheck,:sInDay,:sInBankName,:sInName,:sPayMethod,');
      SQL.Add(':sCreditName,:sCreditNum,:sCreditPeriod,:sCancleYN,:sMemo');
      SQL.Add(')');

      ParamByName('sSeq').AsString := IntToStr(DM.qryCusNum.Fields[0].AsInteger);
      ParamByName('sCd').AsInteger := SelectCD;
      ParamByName('sCdDetail').AsInteger := maxDetail;
      ParamByName('sGroupName').AsString := cmbGroup.Text;
      ParamByName('sCorSect').AsString := cmbCorSect.Text;
      ParamByName('sSaleSect').AsString := cmbSaleSect.Text;
      ParamByName('sCusName').AsString := edtCusName.Text;
      ParamByName('sCusDetail').AsString := edtCusDetail.Text;
      ParamByName('sSalePay').AsString := edtSalePay.Text;
      ParamByName('sChargeName').AsString := edtName.Text;
      ParamByName('sTel').AsString := edtTel.Text;
      ParamByName('sMobTel').AsString := edtMobTel.Text;
      ParamByName('sFax').AsString := edtFax.Text;
      ParamByName('sDepart').AsString := edtDepart.Text;
      ParamByName('sChargePosition').AsString := edtPosition.Text;
      ParamByName('sMail').AsString := edtEmail.Text;
      ParamByName('sAddr').AsString := edtAddr.Text;
      ParamByName('sZip').AsString := edtZip.Text;
      ParamByName('sHouseAddr').AsString := edtHouseAddr.Text;
      ParamByName('sHouseZip').AsString := edtHouseZip.Text;
      ParamByName('sChargeYN').AsString := IntToStr(rdgChargeYN.ItemIndex);
      ParamByName('sSexYN').AsString := IntToStr(rdgSexYN.ItemIndex);
      ParamByName('sBillDay').AsString := DateToStr(dtpBillDay.Date);
      If chkBillCheck.Checked = true then
        begin
          ParamByName('sBillCheck').AsString := 'Y';
        end
      else
        begin
         ParamByName('sBillCheck').AsString := 'N';
      end;
      ParamByName('sInDay').AsString := DateToStr(dtpInDay.Date);
      ParamByName('sInBankName').AsString := cmbInBank.Items.Strings[cmbInBank.ItemIndex];
      ParamByName('sInName').AsString := edtInName.Text;
      ParamByName('sPayMethod').AsString := cmbPayMethod.Items.Strings[cmbPayMethod.ItemIndex];
      ParamByName('sCreditName').AsString := cmbCredit.Items.Strings[cmbCredit.ItemIndex];
      ParamByName('sCreditNum').AsString := edtCreditNum.Text;
      ParamByName('sCreditPeriod').AsString := edtCreditPeriod.Text;
      ParamByName('sCancleYN').AsString := 'N';
      //ParamByName('sMemo').DataType := ftBlob;
      ParamByName('sMemo').AsString := memMemo.Lines.Text;
      Execute;
    end;

이렇게 되어있습니다.
DB를 교체하는 것이 어려운 일인가봅니다.
익숙치 않은 많은 것들이 있어 시행착오의 거듭입니다.

PS.
멀쩡하게 있는 필드가 data editor에 나오지 않네요.
다른 테스트 폼에서 똑같은 쿼리로 하면 잘 뜨는데
DM에서 이것이 안뜨니 ... -_-