[R.i.m.s.k.y.]

попробуй в коде NeedRestart := True

Код:

var   Version: TWindowsVersion;
....
GetWindowsVersionEx (Version);
if ( (Version.Major = 6) and (Version.Minor >= 1) ) then begin
...
NeedRestart := True
...
end;

Не проверял - не обещаю что сработает.