Delphi - Problemas con Imagenes

Hola a todos y gracias de antemano. Mi problema es el siguiente.

Uso el siguiente código para cargar una imagen en un Timage....

procedure TAltaObra.Button3Click(Sender: TObject);
var
info: Tinfo;
begin
AltaObra.Image1.Visible:=true;
OpenPic:=TOpenPictureDialog.Create(self);
if Openpic.Execute then
begin
Image1.Picture.LoadFromFile(openpic.filename);
end;
end;

Va bien, pero el problema ocurre despues de guardar en un ficherode acceso aleatorio y cargar de nuevo...

procedure Tobres.Carregar;
var
f:file of TInfo;
r:integer;
info:Tinfo;
begin
assignfile (f,nomfitxer);
{$I-}
reset (f);
r:=IOresult;
{$I+}
if r=0 then
begin
while not eof(f) do
begin
read (f,info);
alta (info);
end;
end;
end;

Pues aún debiendo ser R=0 me da un valor distinto y no me carga. (Si omito el meter una imagen va perfecto, se guarda, se carga i todo).

A ver sime pueden ayudar