Im Normalfall sollte ein dynamischer Array, wie in Neutral General vorgeschlagen hat ausreichen. Ihn kann man durch SetLength auch in der Größe anpassen.
Nur zu Vollständigkeit und nicht als Ratschlag:
Delphi-Quellcode:
for i:= 1 to 4 do
begin
Form.FindComponent('Schnee'+inttostr(i) as TSchnee).Zeichnen;
end;