Квадрат

[program2001]

Вот код:

var i,iii :integer;
label start,st,start1,st1;
begin
i:=1;
iii:=1;
start:
i:=i+1;
st:
iii:=iii+1;
Canvas.Pixels[iii,i]:=clBlue;
if iii <= 100 then goto st;
iii:=1;
if i <= 100 then goto start;
i:=1;
iii:=1;
start1:
i:=i+1;
st1:
iii:=iii+1;
Canvas.Pixels[iii,i]:=clWhite;
if iii <= 100 then goto st;
iii:=1;
if i <= 100 then goto start;
ShowMessage('Квадрат заполнен!');
end;

Помогите кто сможет!Код доходит только до цикла st1 и не заканчивается,а рисунок всё равно не закрашивается!!!((((

[program2001]

Всё, я уже нашёл ошибку)))!!!
Вот код получается очень круто)))!!!

var i,iii :integer;
label start,st,start1,st1;
begin
i:=1;
iii:=1;
start:
i:=i+1;
st:
iii:=iii+1;
Canvas.Pixels[iii,i]:=clBlue;
asm
nop
end;
if iii <= 100 then goto st;
iii:=1;
if i <= 100 then goto start;
i:=1;
iii:=1;
start1:
i:=i+1;
st1:
iii:=iii+1;
Canvas.Pixels[i,iii]:=clRed;
asm
nop
end;
if iii <= 100 then goto st1;
iii:=1;
if i <= 100 then goto start1;
i:=1;
iii:=1;
goto start;

[program2001]

Вот ещё прикольный код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var iii,i:integer;
begin
Form1.color:=clNone;
i:=0;
iii:=0;
while iii<=100 do
begin
while i<=100 do
begin
Canvas.Pixels[X+iii,Y+i]:=clRed;
i:=i+1;
end;
iii:=iii+1;
i:=0;
end;
i:=0;
iii:=0;
while iii<=100 do
begin
while i<=100 do
begin
Canvas.Pixels[X+i,Y+iii]:=clNone;
i:=i+1;
end;
iii:=iii+1;
i:=0;
end;
end;