Gravar via procedure uma imagem em um TImage em um Blob

Uso o Banco FireBird..

Estou desenvolvendo uma tela, que a pessoa seleciona uma imagem qe fica no TImage, a principio JPEG.

Mas para gravar estou usando Procedures, mas como gravo o valor de TImage para um campos BLOB, qe passa pela procedure e vai para a tabela


T+
Dimmy