procedure Test;
Var
  TBAEx, TBA: TBoxArray;
 TPA :TPointArray;
 L, LL, Del, i :Integer;
 TP :TPoint;
begin
TPA:= GetDot;
TBA := AreaToBoxArray(MSX1, MSY1, MSX2, MSY2, 50, 50);
L := Length(TBA) - 1;

for I:= 0 to L do

If PointInBox(MMToMSH(TPA[i]), TBA[i]) then begin
Writeln(Inttostr(i));
DeleteTBA(TBA, i);
end;
DebugTBA(TBA);
end;