Draw Line проблемы алгоритма

[Alex Cones]

Взял из вики готовый алгоритм. На первый взгляд работает. Но если делать линию X, Y, - X+1, Y+1, то рисуется только одна точка.

Procedure FVFL_DrawLine(Handle: HBITMAP; X1, Y1, X2, Y2, Color : Integer);
Var
 BMP: BITMAP;
 Ar: Array Of Array Of PRGBTriple;
 P1, P2: PRGBTriple;
 X, Y   : Integer;
 DX, DY : Integer;
 SX, SY : Integer;
 Check  : Integer;
 E      : Integer;
 R,G,B  : Byte;
 I      : Integer;
Begin
 Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
 SetLength(Ar, BMP.bmWidth, BMP.bmHeight);
 P1 := BMP.bmBits;
 If BMP.bmBitsPixel = 24 Then
   Begin
      For Y := 0 To BMP.bmHeight - 1 Do
        Begin
          P2 := P1;
            For X := 0 To BMP.bmWidth - 1 Do
              Begin
                Ar[X,Y]:=P2;
                Inc(P2);
              End;
              Pointer(P1) := Pointer(Integer(P1) + BMP.bmWidthBytes);
        End;
      R := (Color And $0000FF);
      G := (Color And $00FF00) Shr 8;
      B := (Color And $FF0000) Shr 16;

      DX := Abs(X1 - X2);
      DY := Abs(Y1 - Y2);
      If X2 - X1 < 0 Then SX := -1 Else
      If X2 - X1 = 0 Then SX := 0 Else
      If X2 - X1 > 0 Then SX := +1;
      If Y2 - Y1 < 0 Then SY := -1 Else
      If Y2 - Y1 = 0 Then SY := 0 Else
      If Y2 - Y1 > 0 Then SY := +1;
      X := X1;
      Y := Y1;
      Check := 0;
      If DY > DX Then
       Begin
        DX := DX + DY;
        DY := DX - DY;
        DX := DX - DY;
        Check := 1;
       End;
      E := 2 * DY - DX;
      For I := 1 To dx Do
       Begin
        Ar[X, Y].rgbtBlue  := B;
        Ar[X, Y].rgbtGreen := G;
        Ar[X, Y].rgbtred   := R;
        If E >= 0 Then
         Begin
          If Check = 1 Then X := X + SX
                       Else Y := Y + SY;
          E := E - 2 * DX;
         End;
        If Check = 1 Then Y := Y + SY
                     Else X := X + SX;
        E := E + 2 * DY;
      End;
  End
 Else
  MessageBox(0, 'Library error - 0x00', 'Error', MB_OK);
End;

Может у кого есть другой алгоритм?

[Alex Cones]

Нашел фейл, исправил в вике и здесь нужно сделать так:

For I := 0 To dx Do