Código Delphi [-]
function SecondsIdle: DWord;
var
  liInfo: TLastInputInfo;
begin
  liInfo.cbSize := SizeOf(TLastInputInfo) ;
  GetLastInputInfo(liInfo) ;
  Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;

Código Delphi [-]
function SecondsIdle: DWord; var liInfo: TLastInputInfo; 
begin 
  liInfo.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(liInfo);
  Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Label1.Caption := Format('System IDLE last %d seconds', [SecondsIdle]);
end;

Código Delphi [-]
...
implementation

const
  DOS_HORAS = 2{hr} * 3600{seg} * 1000{ms};

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Timer1 do
  begin
    Interval:= 1000{1 seg};
    Enabled := True;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  LastInputInfo: TLastInputInfo;
begin
  ZeroMemory(@LastInputInfo, SizeOf(LastInputInfo));
  LastInputInfo.cbSize:= SizeOf(TLastInputInfo);
  Win32Check(GetLastInputInfo(LastInputInfo));
  if GetTickCount - LastInputInfo.dwTime >= DOS_HORAS then
  begin
    Timer1.Enabled:= False;
    MessageBox(0,'La aplicación estuvo 2 horas inactiva y se cerrará', '', MB_OK);
    Application.Terminate;
  end;
end;