void __fastcall TForm1::Button_Buscar_FotoClick( TObject *Sender)
{
if(OpenPictureDialog_Foto->Execute())//Verdadero si haces click en Aceptar
{
Image_Foto->Picture->LoadFromFile(OpenPictureDialog_Foto->FileName);
//para poner la foto que elegiste al TImage.
strcpy(Direccion_Archivo_Foto, OpenPictureDialog_Foto->FileName.c_str() );
//Guardo la dirección en la variable "Direccion_Archivo_Foto".
}
}