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