Schleife für Klassennamen

[Jibiel]

Hallo :>
Ich habe ein Projekt angefangen, bei dem Schneeflocken vorkommen. Dafür habe ich die Klasse TSchnee erstellt.
Da es sich natürlich um sehr viele Schneeflocken handeln wird, ist dieser Quellcode sehr ungünstig, da ich für jede Schneeflocke je eine Zeile brauche. In der folgenden Prozedur versuche ich die Prozedur TSchnee.Zeichnen aufzurufen:

Delphi-Quellcode:

procedure TMain.SchneeTimer(Sender: TObject);
begin

Schnee.Interval := 50;

Schnee1.Zeichnen;
Schnee2.Zeichnen;
Schnee3.Zeichnen;
Schnee4.Zeichnen;
end;

Deshalb möchte ich eine Schleife benutzen, um die endlose Schreiberei zu vermeiden:

Delphi-Quellcode:

procedure TMain.SchneeTimer(Sender: TObject);
var i: integer, Flocke : TObject;
begin

Schnee.Interval := 50;

for i:= 1 to 4 do
begin 
Flocke := 'Schnee'+inttostr(1);
Flocke.Zeichnen;
end;

Das kann nur leider nicht funktionieren, da die Variable Flocke ein TObject ist und einen String zugewiesen bekommt. Fällt euch eine Lösung ein?

Vielen Dank im voraus :>

Jibi