Cómo crear un arreglo de bytes apartir de una imagen?

[fredycc]

Hola, quisiera saber si en Delphi es posible crear un arreglo de bytes a partir de un archivo de imagen ; en Visual lo he visto así:

Dim fs As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.Read)
Dim br As BinaryReader = New BinaryReader(fs)
Dim bm() AsByte = br.ReadBytes(fs.Length)
br.Close()
fs.Close()
Dim photo() AsByte = bm

Les agradecería su apoyo.