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

Получить ссылку на материал