реализовать программу на паскаль abc «звездное небо» и затем гасит его

Красота :зuses  GraphABC;var  i: integer;begin  GraphABC.Brush.Color := Color.DarkBlue;  GraphABC.FillRect(0, 0, WindowWidth, WindowHeight);  for i := 1 to 1000 do    GraphABC.SetPixel(Random(WindowWidth), Random(WindowHeight), clWhite);end.