Carregar Imagem do Banco de Dados

procedure TForm1.CarregaFoto;
var
  Imagem: TJPEGImage;
  MemoriaStream: TMemoryStream;
begin
  try
    Imagem := TJPEGImage.Create;
    MemoriaStream := TMemoryStream.Create;

    TBlobField(DataModulo.Query.FieldByName('FOTO')).SaveToStream(MemoriaStream);

    if (MemoriaStream.Size > 0) then
    begin
      MemoriaStream.Position := 0;
      Imagem.LoadFromStream(MemoriaStream);
      ImageFoto.Picture.Assign(Imagem);
    end
    else
    begin
      ImageFoto.Picture.Assign(nil);
    end;

  finally
    Imagem.Free;
    MemoriaStream.Free;
  end;
end;