pana es muy sencillo con el mismo elemento que usas para seleccionarlo, el trae un atributo llamado Filename, del tipo ansistring, luego utiliza la siguiente sentencia
dir = ExtractFileDir(dialogo->Filename);
donde dir es una variable ansistring y dialogo es el nombre del objeto OpenDialog
sino me entiende cualquier cosa aviseme