установить имя компьютера

[spydark91]

Function CompName:string;
var i:DWORD;
    p:PChar;
begin
i:=255;
GetMem(p, i);
GetComputerName(p, i);
Result:=String(p);
FreeMem(p);
end;

computername:=compname;
lengg:=length(computername);
prov:=compname;
for ii:=1 to lengg do
  begin
    if ord(computername[ii]) in [192..223,224..255] then
      begin
      compnamee:=computername;
       repeat
                    InputQuery('Неверное имя компьютера', 'Для корректной работы программы имя компьютера должно собедражть латинские буквы. Введите, пожалуйста, новое имя.', compnamee);
           if (compnamee<>prov) and (ord(compnamee[ii]) in [65..90,97..122]) then
            begin
             SetComputerName(PChar(compnamee));
             application.MessageBox('Для изменения имени компьютера необходимо выполнить перезагрузку. Сохраните все данный и нажмите "ОК".','Оповещение',0);
             MyExitWindows(EWX_REBOOT or EWX_FORCE); 
                                                                          ////////////////как перезагрузить??
            end
           else showmessage('Измените, пожалуйста, имя компьютера. Пример: Rodion-PC');
        until not(ord(compnamee[ii]) in [192..223,224..255]);
      end;
  end;

сначала проверяется из каких букв состоит имя компьютера,если из русских,то пользователь вводит новое имя и оно устанавливается(для этого нужно перезагружать компьютер?)
проблема- не устанавливается новое имя компа,даже после перезагрузки