Zufällige Bewegung eines Sprites

[Luckie]

Delphi-Quellcode:

procedure TEnemy.DoMove(MoveCount: Integer);
var
  Direction: Cardinal; // 0: left 1: right;
begin
  inherited DoMove(MoveCount);
  Direction := Random(5);
  if (Direction mod 2 = 0) then
    X := X - 10
  else
    X := X + 7;
  Y := Y + 5;

  if (Y = Form1.DXDraw1.Height) or ((X < 0) or (X > Form1.DXDraw1.Width)) then
    Dead;
end;

Das ist meine Routine, um einen Sprit zufällig von oben nach unten zu bewegen. Allerdings zappelt der eigentlich mehr hin und her. Wie bekomme ich es jetzt hin, dass er "fließend" bewegt. Also auch mal ein paar mehr Eimheitem nach links und rechts macht?