Hola, ya probaron esta utileria?
http://www.marteens.com/imDBJPEG.zip
Este package contiene el código fuente del componente imDBImage, que permite trabajar con imágenes almacenadas campos BLOB en el formato JPEG. Acepta también imágenes de mapas de bits. Soporta el uso del Portapapeles, comprimiendo la imagen pegada antes de guardarla en la tabla.
Creo que ayudaria mucho y ya no se generaria codigo.....
Saludos....
