Xailer & OZ Software

Prezados,
Preciso capturar várias imagens do disco e gravar no banco de dados (MySQL)...
Estou fazendo assim:

with object TPicture()
:LoadFromFile("c:imagem.png")
xImagem:=:SaveToStream(,100)
end with
::oMySQL:Execute('UPDATE tabela SET imagem='+cImagem+' WHERE codigo=1')

Mas, não está funcionando...
O que está errado?
Obrigado pela atenção,
Reginaldo

Ok, pessoal... Consegui fazer...

with object TPicture()
:LoadFromFile("c:imagem.png")
xImagem:='0x'+StringToHex(:SaveToStream())
end with
::oMySQL:Execute('UPDATE tabela SET imagem='+cImagem+' WHERE codigo=1')