ChangeFileExt('recivingfile',name);
Переменной name присвоено расширение, например txt(без точки). Расширение не менятся почему-то, хотя и ошибок не появляется. Файл в одно папке с програмой.
ChangeFileExt('recivingfile',name);
name := '.txt';
ChangeFileExt('recivingfile', name);
fs.Write(s[1],length(s));
if fs.Size=DataSize then
Begin
fs.Free;
Reciving:=False;
name:='.'+name;
ChangeFileExt('recivingfile',name);
End;
Exit;
RenameFile('recivingfile', ChangeFileExt('recivingfile',name));