function TPABounds(TPA: TPointArray): TBox;
var
  h, i: Integer;
begin
  h := High(TPA);
  if (h > -1) then
  begin
    Result.X1 := TPA[0].X; Result.X2 := TPA[0].X;
    Result.Y2 := TPA[0].Y; Result.Y2 := TPA[0].Y;
    if (h > 0) then
    for i := 1 to h do
    begin
      if (TPA[i].X < Result.X1) then
        Result.X1 := TPA[i].X
      else if (TPA[i].X > Result.X2) then
        Result.X2 := TPA[i].X;
      if (TPA[i].Y < Result.Y1) then
        Result.Y1 := TPA[i].Y
      else if (TPA[i].Y > Result.Y2) then
        Result.Y2 := TPA[i].Y;
    end;
  end;
end;

procedure ConvexHull(var TPA: TPointArray);
var
  p, Lower: TPointArray;
  LH, H, I, UH, c, j, idx, x, y: Integer;
  area: TBox;
  m: array of TBoolArray;
  b: Boolean;
begin
  h := High(TPA);
  if (h > 0) then
  begin
    area := TPABounds(TPA); // Replace with GetTPABounds ...
    SetLength(m, ((area.Y2 - area.Y1) + 1));
    for i := 0 to area.y2 do
      SetLength(m[i], ((area.X2 - area.X1) + 1));
    C := 0;
    for i := 0 to h do
    begin
      x := (TPA[i].X - area.X1);
      y := (TPA[i].Y - area.Y1);
      if m[y][x] then
        Continue;
      m[y][x] := True;
      Inc(C);
    end;
    SetLength(p, C);
    idx := 0;
    b := False;
    for x := area.X1 to area.X2 do
    begin
      for y := area.Y1 to area.Y2 do
        if m[(y - area.Y1)][(x - area.X1)] then
        begin
          p[idx] := Point(x, y);
          Inc(idx);
          b := (idx >= C);
          if b then
            Break;
        end;
      if b then
        Break;
    end;
    h := High(p);
    if (h > 0) then
    begin
      UH := 2;
      SetLength(TPA, (h + 1));
      TPA[0] := p[0];
      TPA[1] := p[1];
      for i := 2 to h do
      begin
        TPA[UH] := p[i];
        Inc(UH);
        while ((UH > 2) and not (((TPA[(UH - 2)].x * TPA[(UH - 1)].y + TPA[(UH - 3)].x * TPA[(UH - 2)].y + TPA[(UH - 1)].x * TPA[(UH - 3)].y) - (TPA[(UH - 2)].x * TPA[(UH - 3)].y + TPA[(UH - 1)].x * TPA[(UH - 2)].y + TPA[(UH - 3)].x * TPA[(UH - 1)].y)) < 0)) do
        begin
          Dec(UH);
          TPA[(UH - 1)] := TPA[UH];
        end;
      end;
      LH := 2;
      SetLength(Lower, (h + 1));
      Lower[0] := p[h];
      Lower[1] := p[(h - 1)];
      for i := 2 to h do
      begin
        Lower[LH] := p[(h - i)];
        Inc(LH);
        while ((LH > 2) and not (((Lower[(LH - 2)].x * Lower[(LH - 1)].y + Lower[(LH - 3)].x * Lower[(LH - 2)].y + Lower[(LH - 1)].x * Lower[(LH - 3)].y) - (Lower[(LH - 2)].x * Lower[(LH - 3)].y + Lower[(LH - 1)].x * Lower[(LH - 2)].y + Lower[(LH - 3)].x * Lower[(LH - 1)].y)) < 0)) do
        begin
          Dec(LH);
          Lower[(LH - 1)] := Lower[LH];
        end;
      end;
      Dec(LH);
      SetLength(TPA, (UH + LH));
      for i := UH to ((UH + LH) - 1) do
        TPA[i] := Lower[(i - UH)];
    end;
  end;
end;

function SamePoints(P1, P2:TPoint):Boolean;
begin
  Result := False;
  if ((P1.x = P2.x) and (P1.y = P2.y)) then
    Result := True;
end;

{ Given a TPA - This function will connect each point, from first to last }
function ConnectPts(Pts:TPointArray):TPointArray;
var
  i,j,h,l,rl,a: Integer;
  f,t:TPoint;
  AdivL: Extended;
begin
  h := high(pts);
  for i:=0 to h do
  begin
    j := i+1;
    if i=h then
      j:=0;
    f := pts[i];
    t := pts[j];
    rl := length(Result);
    if not(SamePoints(f, t)) then
    begin
      l := Max(Round(Abs(f.X - t.X)), Round(Abs(f.Y - t.Y)));
      SetLength(Result, rl+l+1);
      for a := 0 to l do begin
        AdivL := a / Extended(l);
        Result[rl+a] := Point(f.X + Round((t.X - f.X) * AdivL), f.Y + Round((t.Y - f.Y) * AdivL));
      end;
    end
    else
    begin
      SetLength(Result,rl + 1);
      Result[rl] := f
    end;
  end;
end;

function RandomTPA(Amount:Integer; MinX,MinY,MaxX,MaxY:Integer): TPointArray;
var i:Integer;
begin
  SetLength(Result, Amount+1);
  for i:=0 to Amount do
  begin
    Result[i] := Point(RandomRange(MinX, MaxX), RandomRange(MinY, MaxY));
  end;
end;

//******* Plot a few shapes using this algorithm *******//
var
  TPA,CTPA: TPointArray;
  bmp: Integer;
begin
  bmp := CreateBitmap(700, 700);

  TPA := RandomTPA(10000, 100,100,595,595);
  CTPA := CopyTPA(TPA);
  ConvexHull(CTPA);
  //pp_TPAConvexHull(CTPA);
  CTPA := ConnectPts(CTPA);

  DrawTPABitmap(bmp, TPA, 357435);
  DrawTPABitmap(bmp, CTPA, 255);

  DisplayDebugImgWindow(700,700);
  DrawBitmapDebugImg(bmp);
  FreeBitmap(bmp);
end.