重复图片充满整个窗体~(100分)

我是个小菜鸟，请高手写个函数帮帮忙，把一个小图片重复的出现。能充满整个窗体。谢谢~~

Self.Canvas.Draw(x,y,bmp) ;

下面的代码是把图像画到image的canvas上，你可以改成别的canvas

var
bmp: TBitmap;
X,Y,W,H:LongInt;
begin
bmp:=TBitmap.Create;
try
bmp.LoadFromFile('D:/21.bmp');
with bmp do
begin
W:=Width;
H:=Height;
end;
Y:=0;
while Y<Height do
begin
X := 0;
while X<Width do
begin
image1.Canvas.Draw(x, y, bmp);
Inc(X, W);
end;
Inc(Y, H);
end;
finally
bmp.Free;
end;
end;

你就按hs-kill的做吧.重复的我就不费话了.

用bmp类型的图片：
Procedure ShowBmpFullScreen(AFileName:string);
var
TempBmp: TBitmap;
begin
TempBmp := TBitmap.Create;
try
if FileExists(AFileName) then
begin
TempBmp.LoadFromFile(AFileName);
Self.Brush.Bitmap:=TempBmp;
end;
finally
TempBmp := nil;
TempBmp.Free;
end;
end;