Source position: line 0
procedure PCharCopy(
const source: pchar;
dest: pchar
); overload;procedure PcharCopy(
dest: pchar;
count: Integer
); overload;