[Ñuño Martínez]

Pues en ese caso, mlara, veo más práctico lo siguiente.

Código Delphi [-]
UNIT EjemploVariableConstante;

INTERFACE

   FUNCTION Constante: INTEGER;

IMPLEMENTATION

VAR
   VariableConstante: INTEGER;

   FUNCTION Constante: INTEGER;
   BEGIN
      RESULT := VariableConstante;
   END;

END.

Cuestión de gustos, supogo.