Source position: tpa.pas line 63
procedure ClearSameIntegersAndTPA(
var a: TIntegerArray;
var p: TPointArray
);