Well it's been reverted back to normal movement, so it just animates while standing still but I can post that I suppose.

[pascal]// For Moving our player.
If (isUp In FrmMain.DXInput.States) Then
Begin
Facing := 0; // Facing up.
AnimStart := Up; // Up walking animation.
Y := Y - (300 / 1000) * MoveCount; // Move our sprite up.
End
Else If (isDown In FrmMain.DXInput.States) Then
Begin
Facing := 1; // Facing Down.
AnimStart := Down; // Down walking animation.
Y := Y + (300 / 1000) * MoveCount; // Move our sprite down.
End
Else If (isLeft In FrmMain.DXInput.States) Then
Begin
Facing := 2; // Facing Down.
AnimStart := Left; // Left walking animation.
X := X - (300 / 1000) * MoveCount; // Move our sprite left.
End
Else If (isRight In FrmMain.DXInput.States) Then
Begin
Facing := 3; // Facing Right.
AnimStart := Right; // Right walking animation.
X := X + (300 / 1000) * MoveCount; // Move our sprite right.
End;[/pascal]