Fixed memory leak

nMask has been renamed to sName because its a string and now it has a
defined length of 100 chars to avoid memory leaks. Thx to Klaus Huber
Fixed compability issue

Delphi XE2 produce an error because FMetrics is a record, no pointer.
Thx to Klaus Huber