平铺背景(30分)

如题。
看看我是这样写的：
procedure TForm1.FormCreate(Sender: TObject);
var
b:array[0..10,0..10]of Timage;
i,j,x,y,k:integer;
begin
i:=0;
j:=0;
k:=0;
x:=0;
y:=0;
for i:=0 to 3 do
begin
for j:=0 to 3 do
begin
b[i,j]:=Timage.Create(self);
b[i,j].picture.LoadFromFile('D:/Program Files/超级解霸/副本.bmp');
b[i,j].parent:=form1;
b[i,j].autosize:=true;
b[i,j].top:=x;
x:=x+b[i,j].height;
k:=i*b[i,j].width;
b[i,j].left:=k;
end;
end;
end;
end.
但效果不是我想要的，请问怎么改呢？

呵呵，小问题：
procedure TForm1.FormCreate(Sender: TObject);
var
b: array[0..10, 0..10] of Timage;
i, j, x, y, k: integer;
begin
i := 0;
j := 0;
k := 0;
x := 0;
y := 0;
for i := 0 to 3 do
begin
for j := 0 to 3 do
begin
b[i, j] := Timage.Create(self);
b[i, j].picture.LoadFromFile('C:/1.bmp');
b[i, j].parent := form1;
b[i, j].autosize := true;
b[i, j].top := x;
x := x + b[i, j].height;
k := i * b[i, j].width;
b[i, j].left := k;
end;
x:=0;//这里为X付零值，它就会从窗体顶部重新开始了！
end;
end;
end.

我早上十点来结束问题，都不行。。。。。。
不过，是谢谢你杜宝，因为大家都这样热情，大富翁才这样火
30分给你了