Savetostream en Delphi XE5

[mjjj]

Estimados, estoy migrando una aplicación desde Delphi 2010 a Delohi XE5, pero tengo un problema al intentar guardar un imagen ya sea en memoria o en el disco duro.
Este código funciona perfecto en 2010, pero en XE5 me arroja un error... "Stream read error"

Código Delphi [-]
var
MS: TMemoryStream;
FS: TFileStream;
begin
MS := TMemoryStream.Create;
try
TBlobField(ibquery1.FieldByName('foto')).SaveToStream(MS);
if ms.Size = 0 then exit; //no imagen
  ms.Position := 0;

Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;

La imagen guardada es un BMP.
Espero me puedan ayudar.
Gracias