Ilość zajmowanej pamieci przez grafike

Jak sprwadzić ilość zajmowanego miejsca w pamięci przez zmienną TGraphic (tylko razem z grafiką jaką ona przechowuje)? Próbowałem za pomocą SizeOf(), ale zwraca mi bilka bajtów podczas gdy załadowane zdjecie zajmuje jakieś 300KB.

Kilka znaczy 4? Czyli tyle, ile zajmuje wskaźnik?

function Rozmiar(Graphic:TGraphic):integer;
var mem:TMemoryStream;
begin
mem:=TMemoryStream.Create();
try
  Graphic.SaveToStream(mem);
  Rozmiar:=mem.Size;
finally
  mem.Free();
  end;
end;

Wielkie dzięki za pomoc. Oto właśnie chodziło. :)