function LoadTextBlob( Field: TField; Lines:TStrings ): Boolean;
var
BlobStream: TStream;
begin
Result := Field.IsBlob;
if Result then
begin
BlobStream := Field.DataSet.CreateBlobStream(Field, bmRead);
try
with Lines do
begin
BeginUpdate;
LoadFromStream(BlobStream);
EndUpdate;
end;
finally
BlobStream.Free;
end;
end;
end;