c:=ord(char(pchar(mes[1])));
SetFilePointer(f, $2851, nil, 0);
WriteFile(f, c, SizeOf©, BytesRead, nil);

Но это подходит для патчинга ане билдинга, хех продвинулся и нашел
CreateExe(EOutFile.Text, 14336); каким образом работает эта функция и как засунуть один exe в другой?

Каким образом динамически искать байты для замены т.е. пол винхекс который найдет байт и заменит его?