UpdateResource непашет на некоторых компьютерах

[dimusikus]

Здравствуйте.

Столкнулся с проблемой, вот кусок кода:
H:= BeginUpdateResource('Out.exe', False);
GetMem(Buf, Size);
AssignFile(myFile, 'file.exe');
FileMode := fmOpenRead;
Reset(myFile, 1);
BlockRead(myFile, Buf^,Size);
CloseFile(myFile);
UpdateResource(H, 'RT_RCDATA', 'file.exe', MAKEWord(LANG_NEUTRAL, SUBLANG_NEUTRAL), Buf, Size);
FreeMem(Buf);
EndUpdateResource(H, False);

У меня на борту Windows7 , Delphi10, всё работает как надо, т.е. файл 'file.exe' добавляется в ресурсы файла 'Out.exe'.

Но вот проблема что моя готовая программа с вышенаписанным куском кода , на различных компьютерах (с операционкой Windows XP, win7), непашет, т.е. файл 'Out.exe' остаётся как есть, а в текущем каталоге иногда появляется неизвестный файл RCxxx.tmp.

Никаких ошибок вроде "нехватает каких то библиотек" программа невыдаёт.

после каждой команды BeginUpdateResource,UpdateResource, EndUpdateResour опрашивал GetLastError - везде по 0.

Получается все команды работают без ошибок а эффекта нет.