[gabirojas]

Hola a todos.
Tengo un problema: al hacer un TBlobField me da una ventana de error con la siguiente leyenda: "Stream read error". El codigo es el que sigue:

Código Delphi [-]
procedure TForm1.carga1Button1Click(Sender: TObject);
var
 simagen:tmemorystream;
 jpg:tjpegimage;
begin
  simagen:=tmemorystream.Create;
  jpg:=tjpegimage.Create;
  jpg.LoadFromFile(opendialog1.FileName);
  jpg.SaveToStream(simagen);
  simagen.Seek(0,sofrombeginning);
  dm.ADOTable1.Append; 
  //en la siguiente linea da el error
  tblobfield(dm.ADOTable1.FieldByName('imagen')).
  LoadFromStream(simagen);
  dm.ADOTable1.Post;  
end;

Donde dm es el DataModule, ADOTable es la tabla que estoy utilizando e Imagen es el campo de la tabla al cual quiero insertar la imagen, que es del tipo memo. Utilizo Delphi 7 y Access.
Muchas gracias anticipadas.