Se agradece el aporte, pero un código como ese lo puedes encontrar infinidad de veces en los foros porque es un tema que se ha tratado muchísimas veces.
Además, como usuario nuevo, deberías de leer nuestra
guía de estilo, cosa que te he recomendado en otros mensajes y veo que no has hecho.
También te recuerdo que debes poner los mensajes en los foros adecuados, ya que este es el de "conexión con bases de datos", algo de lo que no trata tu mensaje.
Te recuerdo que debes seleccionar el 'tag' adecuado según el tipo de código fuente publicado, en este caso es delphi.
Además he cambiado el título de tu mensaje: "Nuevo procedimiento para leer JPEG o BitMap sin segunda columna ni descibrar bits.", porque ni es nuevo, ni es un procedimiento, ni tiene nada que ver con "segundas columnas" ni "descifrar bits".
De todas formas, nos agrada de que hayas "descubierto" ese código.
Saludos.