delphi中写入string到内存的问题

Question

想写一个程序，写入一段string到内存比如要写入的string是qwertyu
要写入xxx.exe的0x009C0394中
该怎么写？我用一个byte的数组writeto存放string，然后用
WriteProcessMemory(PH, Pointer(n1), @writeto, sizeof(writeto), Nu);
写入后发现其实写入的是qqqqqqq而且还有不知道哪里来的东西。
不知道到底该怎么写。还有就是比如xxx.exe中的0x009C0394处原来的内容是qwertyuiop
要写入的是qwertyu,因为长度不同，怎么把后面的iop用00填充？
谢谢大家。因为初学delphi,对好多都不熟悉希望大家能讲解一下。