안녕하세요 스페로 입니다.

혹시나 해서 이렇게 해봣음니다.
  AnsiString newfilename;
  if (OpenDialog1->Execute())
  {
    if (FileExists(OpenDialog1->FileName))
    {
      newfilename = ChangeFileExt(OpenDialog1->FileName,".BAK");
      RenameFile( OpenDialog1->FileName , newfilename);
    }
  }


RenameFile() 의 인자가 모두 AnsiString 이기 때문에
이왕이면 확장자 바꾸는 작업을 VCL 에 ChangeFileExt()를 이용해서 소스 파일이름이랑 데스트 파일이름
모두 AnsiString으로 넣어 주었음니다.
일단은 파일이름이 잘 변경 되구요

혹시나 해미님 의견처럼 파일의 권한 문제도 체크해 보세요^^

조상은 님이 쓰신 글 :
:     char szFileName[MAXFILE+4];
:     if (dlgFind->Execute())
:     {
:         if (FileExists(dlgFind->FileName))
:         {
:             fnsplit(dlgFind->FileName.c_str(), 0, 0, szFileName, 0);
:             strcat(szFileName, ".BAK");
:             RenameFile(dlgFind->FileName, szFileName);
:         }
:     }
: 컴파일시 에러는 없는데 return이 False로만..쩝..
:
: 고견 부탁드립니다.