JPG

Estou utilizando o seguinte comando para gravar uma imagem

Var
BinFile: TMemoryStream;
JPG: TJpegImage;
begin
Query.SQL.Add (´UPDATE TbFuncionario SET Foto = :Foto ´);
Query.SQL.Add (´Where cdFuncionario = ´ + EdtCodigo.Text);
JPG := TJPEGImage.Create;
JPG.Assign(ImgFoto.Picture.Bitmap);
BinFile := TMemoryStream.Create;
JPG.SaveToStream(binfile);
Query.ParamByName(´Foto´).LoadFromStream(BinFile, ftblob);
Query.ExecSQL;

Aparentemente ta funcionando. Como faço para ler essa imagem do banco? Achei esse comando no forum mas ta tando erro

Var
BinFile: TStream;
JPG: TJpegImage;
begin
Query.SQL.Add (´SELECT Foto FROM TbFuncionario´);
Query.SQL.Add (´Where cdFuncionario = ´ + EdtCodigo.Text);
Query.Open;

ImgFoto.Picture.Assign(nil);
Jpg := nil;
BinFile := Query.CreateBlobStream(Query.FieldByName(´imFoto´), BMREAD);
Jpg := TJpegImage.Create; *****
Jpg.LoadFromStream(BinFile);
ImgFoto.Picture.Assign(Jpg);
end;

***** Mensagem de erro: ´JPEG error #52´
Obrigada