ADO Database Delphi

Title: How to get the size of a blob field in a table
Question: How to use TBlobStream to get the size of the blob field ?
Answer:
The function GetBlobSize returns the size of a memo, blob or graphic field.
function GetBlobSize(Field: TBlobField): longint;
begin
with TBlobStream.Create(Field, bmRead) do
try
Result := Seek(0, 2);
finally
Free;
end;
end;