Delphi绘制只有四个角有线的矩形

procedure DrawOtherRect(x1, y1, x2, y2: Integer; img: TImage; cColor: TColor = clLime; LineLen: Integer = 50);
var
  lineLength: integer;
  x3, y3, x4, y4: Integer;
begin
  lineLength := LineLen;
  img.Canvas.Pen.Color := cColor;
  img.Canvas.MoveTo(x1, y1);
  img.Canvas.LineTo(x1 + lineLength, y1);
  img.Canvas.MoveTo(x1, y1);
  img.Canvas.LineTo(x1, y1 + lineLength);


  img.Canvas.MoveTo(x2, y2);
  img.Canvas.LineTo(x2 - lineLength, y2);
  img.Canvas.MoveTo(x2, y2);
  img.Canvas.LineTo(x2, y2 - lineLength);


  x3 := x1;
  y3 := y2;
  x4 := x2;
  y4 := y1;


  img.Canvas.MoveTo(x3, y3);
  img.Canvas.LineTo(x3 + lineLength, y3);
  img.Canvas.MoveTo(x3, y3);
  img.Canvas.LineTo(x3, y3 - lineLength);


  img.Canvas.MoveTo(x4, y4);
  img.Canvas.LineTo(x4 - lineLength, y4);
  img.Canvas.MoveTo(x4, y4);
  img.Canvas.LineTo(x4, y4 + lineLength);


end;