Disculpa por no decir si mes funciono pero los estaba probando.
Al codigo le tuve que hacerle un cambio puesto a que solo me admite imagenes .bmp para cambiar de fondo
Código Delphi
[-]
void __fastcall TFPrincipal::FormCreate(TObject *Sender)
__finally
}
]
El codigo funciono a la perfeccion gracias.