Case DCheck of
  1:if (RadX > RadY) then
    begin
      for i:=0 to H do
      begin
        pt := PTS[i];
        matrix[pt.y][pt.x] := -2;
        for j:=-RadX to RadX do
          if (pt.x+j <= AHigh.X) and (pt.x+j >= 0) then
            matrix[pt.y][pt.x+j] := -2;
      end;
    end else //never evauluates to else.. Just skips it completely!!!
      for i:=0 to H do
      begin
        pt := PTS[i];
        matrix[pt.y][pt.x] := -2;
        for j:=-RadY to RadY do
          if (pt.y+j <= AHigh.Y) and (pt.y+j >= 0) then
            matrix[pt.y+j][pt.x] := -2;
      end;