delphi的memo有关问题，如何将在memo中输入换行后的多行数据都保存到数据库的一个字段上面

delphi的memo问题，怎么将在memo中输入换行后的多行数据都保存到数据库的一个字段下面
delphi的memo问题，怎么将在memo中输入换行后的多行数据都保存到数据库的一个字段下面 
我的代码如下： 
if not SameText(trim(Memo2.Lines.Text),'') then 
  begin 
  rzms:=Memo2.Lines.Text;//Memo2是在界面上接收输入的数据 
  rzID:='R'+FormatDateTime('yyyymmddhhmmss',Now()); 
  With ADOQuery2 do 
  begin 
  Close; 
  SQL.Clear; 
  sqlstr:='insert into hrp_rwrz values('''+rzID+''','''+s+''','''+rwsxbs+''','''+datetimetostr(now)+''','''+rzms+''')'; 
  SQL.Add(sqlstr); 
  ExecSQL; 
  end; 
  end; 
在memo2中我输入以下数据： 
a（回车后换行） 
b 
结果只要a被保存了，但是b没有被保存到这个数据库的nvarchar字段下
我按一位大哥的意思修改如下：  
if not SameText(trim(Memo2.Lines.Text), '') then
  begin
  rzms := Memo2.Lines.Text; //Memo2是在界面上接收输入的数据
  rzID := 'R' + FormatDateTime('yyyymmddhhmmss', Now());
  with ADOQuery2 do
  begin
  Close;
  SQL.Clear;
  sqlstr := 'insert into hrp_rwrz values(''' + rzID + ''',''' + s + ''',''' + rwsxbs + ''',''' + datetimetostr(now) + ''',:rzms)';
  SQL.Add(sqlstr);
  Parameters.ParamByName('rzms').Value := rzms;
  ExecSQL;
  end;
  end;
但是出现以下问题：
下面这句话执行怎么有错误啊， 
Parameters.ParamByName('rzms').Value := rzms; 
说rzms找不到 
我已经声明定义rzms：string; 
数据库里面这个字段是：ms 
但我换了还不行啊

------解决方案--------------------
a:=stringreplace(memo1.Text,#13#10,'',[rfreplaceall]);