procedure Set_MinTPALength(var ATPAInput : T2DPointArray; MinTPALength: Integer);
var
  i, ATPALength: Integer;
begin
  ATPALength := Length(ATPAInput);

  for i := 0 to ATPALength - 1 do
    begin
      if (Length(ATPAInput[i]) < MinTPALength) then
      begin
        SetLength(ATPAInput, i);
      end;
    end;
end;