Как установить переменные окружения?

Code:

{*********************************************}

{ Set Global Environment Function             }

{ Coder : Kingron,2002.8.6                    }

{ Bug Report : Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.                }

{ Parameter:                                  }

{ Name : environment variable name            }

{ Value: environment variable Value           }

{ Ex: SetGlobalEnvironment('MyVar','OK')      }

{*********************************************}

function SetGlobalEnvironment(const Name, Value: string;

const User: Boolean = True): Boolean;

resourcestring

REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session Manager\Environment';

REG_USER_LOCATION = 'Environment';

begin

with TRegistry.Create do

   try

     if User then { User Environment Variable }

       Result := OpenKey(REG_USER_LOCATION, True)

     else { System Environment Variable }

     begin

       RootKey := HKEY_LOCAL_MACHINE;

       Result  := OpenKey(REG_MACHINE_LOCATION, True);

     end;

     if Result then

     begin

       WriteString(Name, Value); { Write Registry for Global Environment }

       { Update Current Process Environment Variable }

       SetEnvironmentVariable(PChar(Name), PChar(Value));

       { Send Message To All Top Window for Refresh }

       SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('Environment')));

     end;

   finally

     Free;

   end;

end; { SetGlobalEnvironment }