TCanvas Update [Geloßt!]

[sniper_w]

Ich könnte das aber nicht feststellen.

Delphi-Quellcode:

var
  Form1: TForm1;
  a : integer = 0;

implementation

{$R *.dfm}

procedure Paint_me();
 var n:integer;
begin
 if a >10 then Exit Else
        begin
         Inc(a);
         for n := 0 to 100 do
         with Form1 do
         Canvas.Rectangle(random(width),random(height),random(width),random(height));
         Paint_me;
        end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 a := 0;
 Paint_me;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;