Du kannst ja zeigen, wie man auf einem Canvas zeichnet:
Linien:
MoveTo /
LineTo
Rechtecke:
Rectangle
Ellipsen / Kreise:
Ellipse
RoundRect gibt's glaub auch (abgerundete Ecken).
Bei der Ellipse und den Rechtecken kannst du die Farbe ja ändern:
Umrandung:
Pen.Color
Füllfarbe:
Brush.Color
Text ausgeben:
TextOut
Natürlich kannst du das auch auf das Canvas eines Bitmaps (
TBitmap) zeichnen und anschließend abspeichern. Auch kannst du die Zeichenfunktionen auch in einer Schleife ausführen, dort die Parameter ändern udn so ganz nette Effekte erzielen. Nur so ein paar Anregungen.
PS: Ich poste das trotz dem roten Kasten, da es nicht ganz identisch ist.