[fpc-pascal]RegisterIntegerConsts problem

[Judison]

Hi all

I'm trying to use persistence with a type like "cursor" of Delphi or
Kylix, wich are a "integer" and have some constants to common values....

I write a one file program to show the problem, but it works (in my
project it does not work), after 6 hours of head-burning I discover that
the problem is when I have de RegisterIntegerConsts in a unit...

the code I attached shows the problem, I get a

An unhandled exception occurred at 0x08065354 :
Error while reading TTEST.Cursor: Invalid property value
  0x08065354

if I move the RegisterIntegerConsts from unit to program, it works
fine...

I'm using:
Free Pascal Compiler version 1.0.6 [2002/05/23] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Linux for i386

compilling with -S2

excuse-me by the long mail, and by my poor english (I'm brazilian)

Thanks in advance
Judison
-------------- next part --------------
A non-text attachment was scrubbed...
Name: regint.pp
Type: application/octet-stream
Size: 949 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20020921/f052f6e1/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: test.pas
Type: application/octet-stream
Size: 730 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20020921/f052f6e1/attachment-0001.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: regint.frm
Type: application/octet-stream
Size: 57 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20020921/f052f6e1/attachment-0002.obj>