... AnsiString Nombre; if (OpenDialog1->Execute()) Nombre = ExtractFileName(OpenDialog1->FileName); ...