Source position: tpa.pas line 96
procedure OffsetATPA(
var ATPA: T2DPointArray;
const Offset: TPoint
);