Source position: tpa.pas line 80
procedure AppendTPA(
var TPA: TPointArray;
const ToAppend: TPointArray
);