Capturar ninguna acción

[DarkByte]

muli, intenta encerrar tu código en las etiquetas [ Delphi ] y [ / Delphi ] (pero sin espacios), y tampoco estaría de mal que identases tu código.

Para que veas que tal queda:

Código Delphi [-]
procedure TForm1.MyIdleHandler(Sender: TObject; var Done: Boolean);
  begin
    Timer1.Enabled:=False;
    Timer1.Enabled:=True;
  end;


procedure TForm1.FormCreate(Sender: TObject);
  begin
    Application.OnIdle:= MyIdleHandler;
   end;

procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    Timer1.Enabled:=False;
    ShowMessage('han pasado x tiempo sin hacer nada');
    utiles.CierraTablas(Datos) // Cierro todas las fuentes de datos
    Halt; // cierro el programa
  end;