¿Cómo detecto CTRL+C en consola?

[Ñuño Martínez]

Wenas.

Sólo decir que he estado haciendo pruebas en Linux (Free Pascal) y no funciona. Compila y ejecuta, pero al pulsar [Ctrl+C] cierra el programa y ya está. El programa que he utilizado es este:

Código Delphi [-]
PROGRAM EjemploControlC; 
(* Un ejemplo de cómo capturar [Ctrl+C] con Object Pascal.  *) 
 
{ FPC no necesita saber si es o no de consola. }
USES 
  SysUtils; { EControlC es declarada aquí. } 
 
VAR 
  VariableTonta: STRING; 
BEGIN 
  TRY 
    WriteLN ('Para terminar puedes pulsar [Enter] o [Ctrl+C].  El resultado será diferente en cada caso'); 
    ReadLN (VariableTonta); 
    WriteLN ('Has pulsado [Enter].'); 
  EXCEPT 
    ON EControlC DO WriteLN ('Has pulsado [Ctrl+C].'); 
  END; 
  WriteLN ('Que tengas un buen día.'); 
END.

Sólo lo digo para que conste, no porque crea que esté mal que no es el caso.