Tworzenie gwieździstego tła

Aby utworzyć na formularzu proste gwieździste tło należy zmienić jego kolor na czarny i w zdarzeniu OnCreate formularza umieścić:

Unit1.cpp

#include <stdlib.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int Num_Stars = 1000000;
   TColor kolor;
   randomize();
   for (int i = 1; i <= Num_Stars; i++)
   {
      int odcien = random(256);
      kolor = TColor(RGB(odcien, odcien, odcien));
      Canvas->Pixels[random(ClientWidth)][random(ClientHeight)] = kolor;
   }
}