Function GetBlobSize(Field: TBlobField): LongInt;begin with TBlobStream.Create(Field, bmRead) do try Result := Seek(0, 2); finally Free; end;end;