初学者请问一个简单的问题（关于脚本）

Question

以下是一个按钮的脚本，我想连续执行该脚本十次，请问程序应该如何写？procedure TForm1.Button3Click(Sender: TObject);
begin
i:=i+1;
end;

Answer 1

可以用循环写呀。
for i:=0 to j do

Answer 2

for j :=0 to 7 do
     procedure TForm1.Button1Click(Sender: TObject);难道这么写？

Answer 3

分分儿太少 ..
Button3Click(nil);
Button3Click(nil);
Button3Click(nil);
Button3Click(nil);
Button3Click(nil);
Button3Click(nil);
Button3Click(nil);
Button3Click(nil);
Button3Click(nil);
Button3Click(nil);
正好十次 ...

Answer 4

var i : integer;
begin
  for i:=0 to 9 do
  button3.Click;
end;

Answer 5

照siyu2002(阿土仔)的，下次不要叫这个脚本，叫它代码或者别的什么听上去不是很别扭的名词。

Answer 6

我狂倒~~~~~~~不是脚本吧~~~~~~~天for j:=1 to 10 do
i:=i+1;

Answer 7

for count := 0 to 9 do
  Button3Click(Sender);
或者
for count := 0 to 9 do
  Button3Click(nil);

Answer 8

对，就像他们写的，在别的事件里面调用他10次就得了！
例如在Form的create事件里：
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  for i:=0 to 9 do
  button3.Click;
end;

Answer 9

:< >:
   =
 = = =
   =
   =

Answer 10

不要嘲笑别人 你关别人怎么叫呢
要想连续循环10次 用
var
  I,j:integer;
begin
  for I;=1 to 10 do
    inc(j)
end;
j垒加了10次如果是想调用过程10次 
var
  i: Integer;
begin
  for i:=1 to 10 do
    Button3Click(nil);
End;