Работа со наредба за циклично (повеќекратно) повторување- FOR, WHILE, REPEAT - UNTIL

По поставување на три  Button-a (Button1, Button2, Button3)  и една Label1 се пријавува променлива
а потоа на притисок на Button1 се внесува следниот код :

(пред begin)
    var i:integer;          

(после begin)

 for i:=1 to 3 do       begin
     showmessage(inttostr(i));
     label1.Color:=clblack;
     label1.Font.Color:=clred;
     label1.Font.Size:=100*i;
     label1.Caption:=inttostr(i);
end; ------------------------------------------ а потоа на притисок на Button2 се внесува следниот код :

(пред begin)
var i:integer;   

(после begin)
 i:=1;                   
while i<=3 do
begin
     showmessage(inttostr(i));
     label1.Color:=clblack;
     label1.Font.Color:=clblue;
     label1.Left:=30*i;
     label1.Caption:=inttostr(i);
     i:=i+1;
end;
------------------------------------------  а потоа на притисок на Button3 се внесува следниот код :

(пред begin)
var i:integer; 

(после begin)
 i:=1;
repeat
     showmessage(inttostr(i));
     label1.Color:=clblack;
     label1.Font.Color:=clyellow;
     label1.Caption:=inttostr(i);
     label1.Top:=50*i;
     i:=i+1;
until i>3;