Draw_Line2

procedure Draw_Line2(

  aBmp: TBitmap32;

  const x1: Integer;

  const y1: Integer;

  const x2: Integer;

  const y2: Integer;

  aColor: TColor32;

  width: Integer;

  brushsize: Integer

);