Изменить расширение файла Опции

[Unconnected]

Записываю данные из потока в файл, потом очищаю поток(fs.free). Файл, в который произошла запись, без расширения. Изменяю его так:

ChangeFileExt('recivingfile',name);

Переменной name присвоено расширение, например txt(без точки). Расширение не менятся почему-то, хотя и ошибок не появляется. Файл в одно папке с програмой.

[volvo]

Расширение не менятся почему-то

Ну вот и не меняется, потому что точку не включил...

name := '.txt';
ChangeFileExt('recivingfile', name);

[Unconnected]

Ну вот и не меняется, потому что точку не включил...

И тем не менее..Просто доступ к файлу(удаление,переименование и т.п.) появляется только после выключения программы. Нужно как-то закрывать файл?

Это кусок кода:

fs.Write(s[1],length(s));
    if fs.Size=DataSize then
    Begin
      fs.Free;
      Reciving:=False;
      name:='.'+name;
      ChangeFileExt('recivingfile',name);
    End;
  Exit;

[volvo]

RenameFile('recivingfile', ChangeFileExt('recivingfile',name));

[Unconnected]

Переименование работает, спасибо