Problem z TOleGraphic

Za pomocą tego kodu można ładować różne typy plików graficznych (gif,jpg,pcx...).
Jednak w ten sposób załadowana bitmapa jest zawsze mniejsza niż w pliku.
Np. ładuję plik xxx.jpg o rozmiarze 600x800, we właściwościach Image1.Picture rozmiary obrazka są 508x690. Czy ktoś wie o co tu może chodzić?

procedure TForm1.BitBtn1Click(Sender: TObject);
var
f:TFileStream;
graphic : TOleGraphic;
begin
graphic := TOleGraphic.Create;
if OpenDialog1.Execute then
begin
f:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyNone);
graphic.LoadFromStream(f);
Image1.Picture.Assign(graphic);
end;
end;