안녕하세요 경호입니다.

AnsiString MyFilename;
MyFilename = OpenDialog->FileName + ".aaa";
//이렇게 하시면 기존의 파일 네임뒤에 새로운 확장자가 붙겠지요 ^^

AnsiString PFileName;
OpenDialog1->Execute();
1.PFileName = ChangeFileExt(OpenDialog1->FileName,".xls");
2.PFileName = (OpenDialog1->FileName.SubString(1,OpenDialog1->FileName.Pos(".")-1) + ".xls");
//1이나 2의 두개중 하나를 사용하시면 되겠네요 ^^

그럼 즐프하세요 ^^