[lazarus] StrPCopy bug

[Peter Vreman]

>home: >ex46
>Mem :262016
>Some nice ansi string!!! has length 24 and  buffer size 25
>Mem : 262016 or lost 0bytes
>Heap dump by heaptrc unit
>7 memory blocks allocated : 125/144
>5 memory blocks freed     : 101/112
>2 unfreed memory blocks : 24
>True heap size : 262144
>True free heap : 262016
>Should be : 262016
>Call trace for block 0x08062600 size 12
>   0x080592E2
>   0x080551A0
>   0x08053B09
>   0x08053C04
>   0x08058D65
>   0x0805D49F
>   0x080480A4
>Call trace for block 0x080625C0 size 12
>   0x080592E2
>   0x080551A0
>   0x08053AF1
>   0x08053C04
>   0x08058D65
>   0x0805D49F
>------------------------------------------------------------
>
>Remark the '0 bytes lost.'
>
>The 2 allocated blocks that heaptrc cmplains about are because
>2 exception objects that are allocated in iitialization code of
>the sysutils unit are never freed (no finalization code yet),
>they have nothing to do with the StrPCopy.
I'll fix those things. heaptrc also needs to be adapted to use finalization.