Utilize a API GetSystemMetrics do Windows com o parâmetro SM_CLEANBOOT, que especifica como o sistema foi iniciado, no código do seu projeto utilize:
programa Projeto1;
usa
Formulários,
Windows,
Diálogos,
Unidade1 em 'Unit1.pas' {Form1};
{$R *.RES}
começar
aplicativo.Inicializar;
Application.CreateForm(TForm1, Form1);
caso GetSystemMetrics(SM_CLEANBOOT) de
1: começar
ShowMessage('Executando em modo de segurança: inicialização à prova de falhas');
Aplicativo.Terminar;
fim;
2: começar
ShowMessage('Executando em modo de segurança: à prova de falhas com inicialização de rede');
Aplicativo.Terminar;
fim;
fim;
Aplicativo.Executar;
fim.