Bueno, gracias a ixMike por su ayuda pude hacer el siguiente codigo (aunque es mejorable, pero sirve):
Código Delphi
[-]var
Incio: TIncio(Form);
Contador: Integer;
procedure Tincio.FormCreate(Sender: TObject);
var Contador, TiempoBloqueo: Integer;
begin
Contador:=0;
end;
en el OnTimer del Timer:
procedure Tincio.Timer1Timer(Sender: TObject);
begin
Inc(Contador);
if Contador = 5 then
begin
ShowMessage('El sistema se bloqueó');
end;
end;
en el OnMessage de un ApplicationEvents:
procedure Tincio.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if
((Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST))
or
(Msg.message >= WM_KEYFIRST) and (Msg.message <= WM_KEYLAST)
then
begin
Contador := 0;
end;
Saludos.