关于随机画点

Question

我想在image上随机花10个点，代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var i,x,y:integer;
begin
for i:=1 to 10 do begin
   Randomize;
   x:=Random(form1.image1.width);
   y:=Random(form1.image1.height);
   Image1.Canvas.Pixels[x,y]:=clred;
end;
end;
现在的问题是，当我点一次button的时候，它只能产生一个点，我想同时就产生10个点，怎么不行呢？请高手指教！谢谢！

Answer 1

这样就可以啦
procedure TForm1.Button1Click(Sender: TObject);
var i,x,y:integer;
begin
  Randomize;
  for i:=1 to 10 do
  begin
    //Randomize;
    x:=Random(form1.image1.width);
    y:=Random(form1.image1.height);
    Image1.Canvas.Pixels[x,y]:=clred;
  end;
end;