[semiono]

Мне нужно продолжить то что я начал...

Код:

[C*de]
function Const1(Param: String): String;
begin
  Result := ExpandConstant('{pf}');
end;

function Const2(Param: String): String;
begin
  Result := ExpandConstant('{sys}');
end;

function Const3(Param: String): String;
begin
  Result := ExpandConstant('{sys}');
end;

function Const4(Param: String): String;
begin
  Result ==  const dwoffset: dword = $11223344;
end;

[Registry]
Root: HKLM; Subkey: "Software\$reg.exe"; ValueType: string; ValueName: "1"; ValueData: "{code:Const1}"; Flags: noerror; Permissions: admins-full
Root: HKLM; Subkey: "Software\$reg.exe"; ValueType: string; ValueName: "2"; ValueData: "{code:Const2}"; Flags: noerror; Permissions: admins-full
Root: HKLM; Subkey: "Software\$reg.exe"; ValueType: multisz; ValueName: "3"; ValueData: "{code:Const3}"; Flags: noerror; Permissions: admins-full
Root: HKLM; Subkey: "Software\$reg.exe"; ValueType: dword; ValueName: "4"; ValueData: "{code:Const4}"; Flags: noerror; Permissions: admins-full

С двордом я запарился, так как не знаю паскаль, и это надо исправить, подскажите как?
И мне не нравиться частый вызов функции, нельзя ли просто константы в секции код указать?
Мне просто пока надо получить одинаковые заданные константы в двух секциях [code] / [registry]
чтоб не писать по два раза.