Problema cargando Imagen desde base de Datos

[JULIPO]

Recibe un cordial saludo.

Buscando por el foro encontre esta respuesta a mis requerimientos, roman dejo unas rutinas realmente interesantes pero no me funcionan aparecen errores de acceso, estoy trabajando con delphi 2007 mysql y zeos trabajo con zquery pero tambien probe con ztable y me aparece el mismo error.


la rutina que trabajo es la siguiente

procedure Tcusuario.DataSource1DataChange(Sender: TObject; Field: TField);
 begin
  if zquery1.FieldByName('foto').AsVariant<> null then
   begin
    Image1.Picture.LoadFromFile('c:\biodyn\imagen.jpg');
    image1.Stretch:=true;
    PictureToField(image1.Picture, Zquery1.FieldByName('foto'));
  end;

la idea es que si no hay foto en la base de datos grabe una imagen de muestra

pero me aparece el siguiente error.

access violation at 0X7c925d4e write of address 0x00030fb0;

Esto por que puede ser el campo foto en la tabla es del tipo blob

Espero me puedan ayudar.