Fixed compiling with FPC trunk (SetString doesn't work with UTF8String since the cpstrnew merge).
Fixed compiling with FPC trunk (SetString doesn't work with UTF8String since the cpstrnew merge).

rburgstaler/tpabbrevia,rburgstaler/tpabbrevia,rburgstaler/tpabbrevia,rburgstaler/tpabbrevia,rburgstaler/tpabbrevia,rburgstaler/tpabbrevia