Fernsehrauschen zeichnen?

[pacman1986]

@ Handy dein RGBtoColor gibts Schon

Color := RGB(R,G,B);

Delphi-Quellcode:

randomize; //Wie oben schon gesagt einmal aufrufen
...
procedure Schnee(Img : TImage);
var i,j:integer;
begin
   For i := 1 to Img.Width do
     For j := 1 to Img.height do begin
         Img.Canvas.Pixels[i,j] := RGB(random(256),random(256),random(256)); 
         application.ProcessMessages
     end;
end;

Aufruf dann
Schnee(Image1);