Application.Terminate

[Loviedo]

Con la ayuda de todos, creo que he conseguido lo que quería.Gracias.
Tiempo es una variable global a la unidad.
interval = 1sg.
transcurrido 5 sg. si no se ha pulsado tecla o movimiento del ratón, la aplicación termina.

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if ((Msg.message >= WM_KEYFIRST) and (Msg.message <= WM_KEYLAST)) or
    ((Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST)) then
   tiempo := 0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(tiempo);
  if tiempo > 5 then
    application.Terminate;
end;