Timer, Tasteneingabe und Mausklicks

[shmia]

Du nimmst eine TTimer-Komponente; wenn der Timer abläuft, rufst du die Methode Release auf.
Dann überladest du die procedure WndProc:

Delphi-Quellcode:

procedure WndProc(var Message: TMessage);override;

procedure TForm1.WndProc(var Message: TMessage);
begin
   inherited WndProc(Message);
   case Message.Msg of
      WM_CHAR, WM_SETFOCUS, WM_ACTIVATE:
      begin
         Timer1.Enabled := False;  // Stop
         Timer1.Enabled := True;   // Neustart
      end;
   end;
end;