Use la API de Windows GetSystemMetrics con el parámetro SM_CLEANBOOT, esto especifica cómo se inició el sistema, en el código de su proyecto use:
programa Proyecto1;
usos
formularios,
ventanas,
Diálogos,
Unidad1 en 'Unidad1.pas' {Form1};
{$R*.RES}
comenzar
aplicación.Inicializar;
Aplicación.CreateForm(TForm1, Form1);
caso GetSystemMetrics(SM_CLEANBOOT) de
1: comenzar
ShowMessage('Ejecutando en modo seguro: arranque a prueba de fallos');
Solicitud.Terminar;
fin;
2: comenzar
ShowMessage('Ejecutando en modo seguro: a prueba de fallos con arranque de red');
Solicitud.Terminar;
fin;
fin;
Aplicación.Ejecutar;
fin.