Реализовать программу на паскаль 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.