Delphi7. Baca bidang BLOB dengan data WideString di dalamnya

Adakah yang bisa membantu? Saya menyimpan proyek Delphi7 lama dan mengalami masalah berikutnya. Bagaimana cara menyimpan nilai bidang BLOB jika berisi string Unicode? Saya mencoba:

var
  str: WideString;
begin
  ...
  str := WideString(Fields[1].AsString); - but I get empty string
  ...

  ...
  str := VarToWideStr(Fields[1].AsVariant); - but I get "(BLOB)" result in str varible.
  ...
end;

Solusi saya: Penggunaan kode:

...
stream := TMemoryStream.Create;
try
  Fields[1].SaveToStream(stream);
  ss := MemStreamToWStr(stream);
finally
  stream.Destroy;
end;
...

Dan fungsinya:

function TSnsFrame.MemStreamToWStr(Mstream: TMemoryStream): WideString;
begin
  Mstream.Seek(0, soFromBeginning);
  SetLength(Result, Mstream.size div 2);
  MStream.ReadBuffer(Result[1], Mstream.size);
end;