A Windowst illetve az egész rendszert az ExitWindows WinAPI függvénnyel tudod újraindítani.

A Windows újraindítása a rendszer újraindítása nélkül:

procedure TMainForm.RestartWindowsBtnClick(Sender: TObject);
begin
   if not ExitWindows(EW_RestartWindows, 0) then
     ShowMessage('Az egyik alkalmazást nem lehet bezárni.');
end;


Az egész rendszer újraindítása:

procedure TMainForm.RebootSystemBtnClick(Sender: TObject);
begin
   if not ExitWindows(EW_RebootSystem, 0) then
     ShowMessage('Az egyik alkalmazást nem lehet bezárni.');
end;