begin
  Randomize;
  System.Console.CursorVisible := false;
  System.Console.ForeGroundColor := System.ConsoleColor.White;
  var num := 0;
  while num < 25 do
  begin
    System.Console.SetCursorPosition(Random(80), num);Write('*');
    Sleep(750);
    System.Console.Clear;
    num += 1;
  end;
  System.Console.ReadKey;
end.