It works for me.

[kryton9]

I have switched to freepascal from delphi when I use object pascal. It is nice to see you support it Eros.

Have fun Dan.