안녕하세요

통신내용을 access의 메모필드에 저장하려고하는데요

4000바이트까지 가능하다고는 하는데

제가 저장하려고하니

255를 넘으면 저장이 안되네요

어떻게 하면 4000바이트까지 저장이 가능하려나요?

이렇게 작성했습니다.

procedure TfrmMain.SaveLog();
begin

      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('INSERT INTO  IF_LOG (TRAN_DT, TRAN_TM, DIR_CD, COM_SEQ_NO, SEND_ID, RECV_ID, CO_NO2, TX_TYPE, TX_CD, SEND_DT, ');
      ADOQuery1.SQL.Add(                                'SEND_TM, RESP_CD, RESP_MSG, DATA)');
      ADOQuery1.SQL.Add('                      VALUES( :Param1, :Param2,      :Param3,    :Param4,    :Param5,      :Param6,      :Param7,       :Param8, :Param9,    :Param10, ');
      ADOQuery1.SQL.Add('                    :Param11,            :Param12,     :Param13, :Param14)');

      ADOQuery1.Parameters.ParamByName('Param1').Value := Trim(FormatDateTime('yyyymmdd', Now));
      ADOQuery1.Parameters.ParamByName('Param2').Value := Trim(FormatDateTime('hhnnss', Now));
      ADOQuery1.Parameters.ParamByName('Param3').Value := Trim(strDirCd);
      ADOQuery1.Parameters.ParamByName('Param4').Value := Trim(strComSeqNo);
      ADOQuery1.Parameters.ParamByName('Param5').Value := Trim(strSendId);
      ADOQuery1.Parameters.ParamByName('Param6').Value := Trim(strRecvId);
      ADOQuery1.Parameters.ParamByName('Param7').Value := Trim(strBzRegNo);
      ADOQuery1.Parameters.ParamByName('Param8').Value := Trim(strTxType);
      ADOQuery1.Parameters.ParamByName('Param9').Value := Trim(strTxCd);
      ADOQuery1.Parameters.ParamByName('Param10').Value := Trim(strSendDt);
      ADOQuery1.Parameters.ParamByName('Param11').Value := Trim(strSendTm);
      ADOQuery1.Parameters.ParamByName('Param12').Value := Resp_Cd;
      ADOQuery1.Parameters.ParamByName('Param13').Value := Resp_Msg;

      ADOQuery1.Parameters.ParamByName('Param14').Value := cotent1;

이부분이 메모필드에 저장하는부분입니다.

      try
        ADOQuery1.ExecSQL;
      except
        MessageDlg('추가중 에러발생', mtError, [mbOK], 0);
      end;
     
end;

소스보시고 고수님들의 많은 조언좀 부탁드립니다.