RegSetValueEx

[legendary]

Почему вместо пути к файлу в реестр пишется какаэто хрень типа – “ь4•”

var
    MyKey: HKey;
    s: string;
    p:pointer;
s:=paramstr(0);
p:=@s;
if RegOpenKeyEx(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\CurrentVersion\Run' ,0,KEY_ALL_ACCESS,MyKey)=ERROR_SUCCESS
then label1.Caption:='ok';

if RegSetValueEx(MyKey,'neeew' ,0,REG_SZ, p, Length(s))=ERROR_SUCCESS
then label2.Caption:='ok';

RegCloseKey(MyKey);

а почему

//if RegSetValue(MyKey, 'name', REG_SZ, PChar(s + #0), Length(s)+ 1)=ERROR_SUCCESS
//then label2.Caption:='ok';

создает подраздел name в Run?