function AddShapeXY(color,Weight, x1, y1, x2, y2: integer): boolean;
var
  myDrawing, thePoints: Variant;

begin
  myDrawing:= _document.createInstance('com.sun.star.drawing.LineShape');
  myDrawing.LineWidth:= Weight;
  myDrawing.LineColor:= color;

  thePoints:= VarArrayCreate([0, 1], varVariant);
    for d:= 0 to 1  do
      thePoints[d]:=  _application.Bridge_GetStruct('com.sun.star.awt.Point');

  thePoints[0].X:= x1;   
  thePoints[0].Y:= y1;
  thePoints[1].X:= x2;   
  thePoints[1].Y:= y2;
  _document.DrawPage.Add(myDrawing);
  myDrawing.AnchorType := 0;
  myDrawing.PolyPolygon:= VarArrayOf([thePoints]);

  Result := true;

end;