Als Aller Erstes:
Man ruft Randomize nicht mehrmals auf und schon garnicht mehrmals direkt hintereinander.
Direkt auf den Canvas der Form, einer PaintBox oder Dergleichen kann/darf man direkt zeichnen, aber niemals ohne im OnPaint den Bildinhalt "gleich" neuzuzeichnen, denn sonst ist das bisher Gezeichnete weg, wenn dieses Control durch irgendwas sich neu zeichnen muß.
TSterne ist natürlich bissher noch nutzlos, aber ich hoffe du weißt, dass du dort auch synchronisieren mußt, falls du daraus auf die
VCL (Form) zugreifen willst.
Und da dein WHILE kein Ende kennt, kommt der Button-Click auch niemals zurück und das Programm reagiert auf nichts mehr, womit Windows die Oberfläche auch schnell einfrieren wird, mit dem bekannten "Programm reagiert nicht".