memo1为啥读不到Stream

memo1为什么读不到Stream?
代码如下：

var mstr:TMemoryStream;
begin
  mstr:=TMemoryStream.Create;
  mstr:=getkqinfo;

  memo1.Lines.LoadFromStream(mstr);
end;  

function getkqinfo:TMemoryStream;
var mstr:TMemoryStream;
begin
  mstr:=TMemorySTream.Create;
  with Adoqry2 do
  begin
    Active := True;
    if not IsEmpty then
    begin
      TBlobField(FieldByName('kqinfo')).SaveToStream(mstr);
    end;
  end;
  result := mstr;
end;

请大家帮忙看下，为什么memo1取不到数，我测试了的，返回来的mstr size大小超过20000。
[解决办法]