تصاویر و تغییر resulation

[sma_mohseni]

سلام
نیاز به یک کامپوننت دارم که یک تصویر را بعنوان background بگیرد به طوری که این تصویر قابلیت تکرار شدن در محورهای x , y را داشته باشد. یعنی با تغییر Resulation تصویر نیز تکرار شود. توجه کنید که میخواهم تصویر تکرار شود نه اینکه کش(strech) بیاید.
متشکرم

[vcldeveloper]

procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, i,j : integer;
Pic : TGraphic;
begin
//Assign your own image
Pic := Image1.Picture.Graphic;
X := ClientWidth div Pic.Width + 1;
Y := ClientHeight div Pic.Height + 1;
for i := 0 to X do
for j := 0 to Y do
Canvas.Draw(Pic.Width*i,Pic.Height*j,Pic);
end;

[ali_abbasi22145]

سلام
کامپوننت imageen