consegir el nombre de un archivo abierto con un openpicturedialog

[aldemar.bohorqu]

He estado intentando y no he podido. Lo estoy haciendo así:


//---------------------------------------------------------------------------
void __fastcall TForm2::I1Click(TObject *Sender)
{
//Al darle click a la imagen (I1)

if(OpenPictureDialog1->Execute())
{
I1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
LE1->Text=OpenPictureDialog1->FileName; //La ruta es mostrada en un LabelEdit
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

//archivo *.txt generado con un botón

cadena=Form1->LE1->Text + "\n"; //AnsiString cadena; (variable public)


ofstream escribir("Datos/imagen.txt",ios::app); //#include <fstream.h> (clase para leer ofstream)
escribir<<cadena.c_str();
escribir.close();

//---------------------------------------------------------------------------




LO hago así pero no me genera el archivo *.txt. No se que será.
Gracias.