procedure TForm1.Button5Click(Sender: TObject); 
var s: string; 
begin 
  case GetSystemMetrics(SM_CLEANBOOT) of 
    0: s := 'Normal gestartet'; 
    1: s := 'Abgesicherter Modus'; 
    2: s := 'Abgesicherter Modus mit Netzwerk-Unterstützung'; 
  end; 
  showmessage(s); 
end;