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;