[kinderpingui20]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  g: integer;
begin
for I := 1 to 1000000  do
begin
    for g := 1 to 1000  do
      if g=1000 then label1.Caption:=IntToStr(g);
label1.visible:=true;
begin
    for g := 1 to 1000  do
      if g=1000 then label1.Caption:=IntToStr(g);
label2.visible:=true;
begin
    for g := 1 to 1000  do
      if g=1000 then label1.Caption:=IntToStr(g);
label3.visible:=true;
begin
    for g := 1 to 1000  do
      if g=1000 then label1.Caption:=IntToStr(g);
label4.visible:=true;

end;
end;
end;
end;
end;
end.

Admin: Пользуемся тегами!

1.При нажатии кнопки проходит 10сек в 1 лебеле появляется число 1000.
2.при 2 нажатии надо чтобы тоже проходило 10 сек и появялось во 2 лебеле число 1000.
3.итак далее.
у меня ограничевается всё 1 этапом=(
что я не правильно делаю?