救救我吧，关于Fieldbyname('memo').AsString字符串长度问题！！！

Question

我在SQL SERVER里定义的MEMO为3000，里面装的是文本信息，
但我读读出来只有255个字母
用AAA:=Fieldbyname('memo').AsString和AAA:=Fieldbyname('memo').Value都一样，
怎样才能读处全部东西啊？

Answer 1

Fieldbyname('memo').AsVariant也一样
其中定义为
VAR
aaa:widestring;

Answer 2

实在不行，就这样：
var
  AStream: TMemoryStream;
  AList: TStringList;
begin
  AList:= TStringList.Create;
  AStream := TMemoryStream.Create;
  try
   TBlobField(UrField).SaveToStream(AStream);
   AList.LoadFromStream(AStream);
   Result := AList.Text;
  finally
    AList.Free;
    AStream.Free;
  end;