通过adoquery读oracle的blob字段的问题

系统为:XP SP2, Delphi 7, oracle 8.1.7.0.0, Ado驱动是microsoft for oracle.
用下面的代码读一个oracle表的blob字段的内容到memo时总是出现"Invaild class typecast"的问题!应该如何解决?var
  textstream : tblobstream;
begin
  //就是下面这句出现"Invaild class typecast"!
  textstream:=tblobstream.Create(TBlobfield(adoquery1.Fields[6]), bmread);
  edit2.text:=trim(datasource1.DataSet.Fields[4].AsString);
  edit3.text:=trim(datasource1.DataSet.Fields[5].AsString);
  edit4.text:=trim(datasource1.DataSet.Fields[0].AsString);
  combobox1.SelText:=trim(datasource1.DataSet.Fields[2].AsString);
  combobox2.SelText:=trim(datasource1.DataSet.Fields[1].AsString);
  memo1.Lines.LoadFromStream(textstream);
  textstream.Free;
end;