数据流保存出

procedure Tzjform1.btn9Click(Sender: TObject);
var
      Ms:TmemoryStream;
      jpg:Tjpegimage;  begin
      if   (dlgOpenPic1.Execute)     then
      begin
          Image1.Picture.LoadFromFile(dlgOpenPic1.FileName);          ms:=TmemoryStream.Create;
          Jpg:=TJpegImage.Create;
          Jpg.Assign(Image1.Picture.Graphic);//转为jpeg格式
          Jpg.SaveToStream(Ms)   ;
          Ms.Position   :=0;          DataModule3.ADO_Temp.Close;
          DataModule3.ADO_Temp.SQL.Clear;
          DataModule3.ADO_Temp.SQL.Add('insert   message_message(photo)   values(:photo)');       //保存图片到数据库
          //DataModule3.ADO_Temp.Parameters.ParamByName('pic_name').Value   :=   edit1.Text;
          DataModule3.ADO_Temp.Parameters.ParamByName('photo').LoadFromStream(ms,ftBlob);//执行到此出错了。提示Undeclared identifer:'ftBlob' ,把ftblob去掉只留ms也不行
          DataModule3.ADO_Temp.ExecSQL;
         Ms.Free   ;
          jpg.free;   
      end
      else   
      begin
          showmessage('保存出错或无文件名！');
          exit;
      end;
  end;