Setze den Bildschirmbereich fest z.b. 200 X 200
[delphi]Procedure Randomize;
begin
end;
dann packst du in deiner procedure BkColor erstmal auf Black und dann
for i:=1 to beliebig do //(je mehr desto mehr Schnee)
Image1.Canvas.Pixels[(Random(200),Random(200)]:=clWhite
end;
Viel Spass
