Y si deseas sólo el nombre, sin la extensión:
Código:
AnsiString Nombre;
if (OpenDialog1->Execute())
Nombre = ExtractFileName(OpenDialog1->FileName).SubString(1,
ExtractFileName(OpenDialog1->FileName).Length() -
ExtractFileExt(OpenDialog1->FileName).Length());
Saludos.