Function
 GetBlobSize(Field: TBlobField): LongInt;

begin

  with
 TBlobStream.Create(Field, bmRead) do
 
    try

      Result := Seek(0, 2); 
    finally

      Free; 
    end
;
end
;