ChangeFileExt(FileName, "")で拡張子無しのファイル名が、
ExtractFileExt(FileName)で拡張子が得られるので、
iを挟んでくっつければいいです。

上記手段は、二つの関数に別れているため、'.'の検索が二度手間で、
効率を気にするなら、自前で'.'を検索して、挿入した方がいいのでしょうが、
ファイルのセーブというより重い処理のついでなので、気にすることはないでしょ。