1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var Canvas:TCanvas;      {Spätere Zeichenfläche}
    MyRect:TRect;        {Position der Zeichenfläche}
    Wnd:integer;         {Vorschaufenster}
    Width,Height:integer;{Größe der Zeichenfläche}
begin
 if ParamCount<2 then exit;
 Wnd:=StrToInt(ParamStr(2));
 while not IsWindowVisible(Wnd) do Application.ProcessMessages; {Warten bis Fenster sichtbar}
 Canvas:=TCanvas.Create;
 GetWindowRect(Wnd,MyRect);
 Width:=MyRect.Right-MyRect.Left;
 Height:=MyRect.Bottom-MyRect.Top;
 Canvas.Handle:=GetDC(Wnd);
 randomize;
 while IsWindowVisible(Wnd) do begin
  Canvas.Pen.Color:=TColor(random(255)*random(255)*random(255));
  Canvas.LineTo(random(Width),random(Height));
 end;
 Canvas.free;
end;