[Lazarus] Encoding agnostic functions for codepoints + an iterator

[Bart]

  i := CodePointLength(s);             // Should return 26.
  writeln('Testing CodePointLength. Result = ', i);

gives
Using UnicodeString + UTF-16
Sizeof(Char) = 2
...
Testing CodePointLength. Result = 30

Mind you that on my system the Eyes, Wineglass and Heart are
unreadible inside Lazarus IDE (they are presented as an outline of a
square block).

Win7 32 bit, fpc 3.0.0 Lazarus trunk.

A tip: put the -dUseUtf16 in a seperate buildmode?

Bart