Работа с типом строк REG_EXPAND_SZ в Delphi

uses Shlwapi;
 
procedure TForm1.Button6Click(Sender: TObject);
var s : array[0 .. MAX_PATH] of Char;
begin
   // RootKey - корневая ветка
   // Name - ветка
   // Value - ключ, значение которого надо прочесть
   SHRegGetPath(RootKey, Name, Value, s, 0);
 
   Edit1.Text := s;
end;

uses Windows;
 
function SHRegGetPath(hkey : HKEY; pszSubKey : PChar; pszValue : PChar;
      pszPath : PChar; dwFlags : DWORD) : LongInt; stdcall;
      external 'Shlwapi.dll' name 'SHRegGetPathA';

function SHRegSetPath(hkey : HKEY; pszSubKey : PChar; pszValue : PChar;
      pszPath : PChar; dwFlags : DWORD) : LongInt; stdcall;
      external 'Shlwapi.dll' name 'SHRegSetPathA';

SHRegSetPath(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\services\ЬнЫукмшсу', 'ImagePath', 'C:\Windows\System32\mysvc.exe', 0);

Var Res : Cardinal;
 
Res := SHRegSetPath(HKEY_LOCAL_MACHINE,
   'SYSTEM\CurrentControlSet\services\ЬнЫукмшсу', 'ImagePath', 
   'C:\Windows\System32\mysvc.exe', 0);
ShowMessage(IntToStr(Res));

// external 'Shlwapi.dll' name 'SHRegSetPathA';
external 'Shlwapi.dll' name 'SHRegSetPathW';

ShowMessage(IntToStr(Res));

var k : HKEY;
 
RegCreateKey(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\services\ЬнЫукмшсу', k);
// а вот теперь можешь в него заносить значение

function SHRegSetPath(hkey : HKEY; pszSubKey : PChar; pszValue : PChar;
      pszPath : PChar; dwFlags : DWORD) : LongInt; stdcall;
      external 'Shlwapi.dll' name 'SHRegSetPathW';
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//RegCreateKey(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\services\MySVC', k);
 SHRegSetPath(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\services\MySVC', 'ImagePath', 'C:\Windows\System32\MySVC.exe', 0);