oImage := TPicture():Create()
oImage:Bitmap:Name := "NOMBRE"

if oImage:Bitmap:Handle != 0
   oImage:Destroy()


   return 1   // Formato BMP
else
   oImage:Icon:Name := "NOMBRE"

   if oImage:Icon:Handle != 0
      oImage:Destroy()

      return 2   // Formato ICO
   endif
endif

return 0 // No es ninguna imagen