I don't know why there are two functions that do the same thing (one built in simba, one in SRL), but I'd suggest one be removed.
Ex.
https://github.com/SRL/SRL-5/blob/ma...bol.simba#L896
Simba Code:function IsPointInTPA(Point: TPoint; TPA: TPointArray): Boolean;
var
I: LongInt;
begin
for I := High(TPA) downto 0 do
if (TPA[I].X = Point.X) then
if (TPA[I].Y = Point.Y) then
begin
Result:= True;
Exit;
end;
end;
&& ...
https://github.com/MerlijnWajer/Simb.../tpa.pas#L2082
Simba Code:function PointInTPA(const p: TPoint;const arP: TPointArray): Boolean;
var
i, l: Integer;
begin
l := High(arP);
if l < 0 then
Exit(false);
Result := True;
for i := 0 to l do
if (arP[i].x = p.x) and (arP[i].y = p.y) then
Exit;
Result := False;
end;

