Cambiar entre imágenes en TImage

[aguml]

Lo he conseguido haciendo un par de pequeños cambios.
El primero es cambiar el parametro de tu funcion por esto:

Código PHP:

HBITMAP CreateHBITMAPFromRCDATAResurce(int FileID) 


Luego en FinResourceW hago esto:

Código PHP:

HRSRC Res = FindResourceW(0, MAKEINTRESOURCEW(FileID), RT_RCDATAW); 


Y por ultimo en la llamada hago asi:

Código PHP:

Image1->Picture->Bitmap->Handle = CreateHBITMAPFromRCDATAResurce(IMAGEN1); 


Donde IMAGEN1 es el id que le asigno a la primera imagen en el archivo Imagenes.h.
Me gustaria saber porque no me funciona como lo tenia ya que tampoco consegui hacerlo antes con el codigo que pasó ecfisa y tuve que hacer mas o menos lo mismo y usar el id en vez del nombre.