Mit Schleifen Bilder erstellen

[claudi3006]

Also zu Bild 3 hab ich das jetzt soweit erstellt. Die Dreiecke kommen zwar raus, aber ob das so richtig ist weiß ich leider nicht. Vielleicht kann mir jemand noch andere Tips geben.Außerdem weiß ich nicht wie ich jetzt für jedes einzelne Dreieck eine Zufallsfarbe erzeugen soll, die sich dann beim Öffnen des Bildes aber immer wieder ändert.Weiß zwar das ich dafür randomize verwenden muss..aber sonst nicht.
Also mein bisheriger Code:

Delphi-Quellcode:

with image2.Canvas do
begin
for i:=0 to 20 do
begin
Moveto(0,200);
Lineto(100,0+i*15);
Moveto(200,200);
Lineto(100,0+i*15);
end;

Vielleicht kann mir jetzt jemand helfen, wäre echt dankbar!!