ParamByName('sMemo').AsMemo := memMemo.Lines.Text;

이렇게 해보시는건 어떨까요?
제가 IBDAC와 FIBPlus를 추천해드렸습니다만, 전 FIBPlus는 구매해서 쓰긴하는데
IBDac은 또 사기가 그래서.. 보유한게 없습니다.
CoreLab 제품은 MyDac이랑 SQLDac만 사용하고 있군요.

IBDac는 없고, 트라이얼을 설치하긴 좀 그렇고해서
추상적으로 알려드릴 수 밖에 없네요.

TotemPole 님이 쓰신 글 :
: 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에서 이것이 안뜨니 ... -_-