DELPHI-如何更改文件扩展名

var
  sFileName : string;
begin
  ...
  sFileName := 'c:\temp\file.txt';
  ShowMessage( sFileName + #13 + changeFileExt( sFileName, '.exe' ) );
Output:

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678