Delphi 单引号，斜杠，而且字符串很长，是字符串流TStringStream，这样的内容如何保存到SQL SERVER 2000？

  ss:=TStringStream.Create('');
  ms.SaveToStream(ss);//把ms拷贝到ss
  RxRichEdit3.Lines.Add(ss.DataString);
  //聊天记录保存到本地数据库
  with ADOQuery2 do
  begin
     SQL.Clear;
     strSql:='insert into message (bh,bh2,t,sj) values (:bh,:bh2,:t,:sj) ';
     SQL.Add(strSql);
     Parameters.ParamByName('bh').Value:=bh;
     Parameters.ParamByName('bh2').Value:=bh2;
     Parameters.ParamByName('t').LoadFromStream(ss,ftBlob);//字符流这样保存一定成功，否则很多字符保存不了，比如单引号，斜杠，数据库字段是image
     Parameters.ParamByName('sj').Value:=DateTimeToStr(Now);
     ExecSQL;
  end;
  ss.Free;