[x_aguilarf]

La función ChangeFileExt te puede ser útil en estos casos:

Código Delphi [-]
var
  Path: string;
begin

  Path := 'C:\Archivo.chr';
  RenameFile(Path,  ChangeFileExt(Path, '.txt'))

end;