Замостить изображение

[SunKnight]

Подскажите пожалуйста, как можно в Image замостить изображение (пример: рабочий стол)?

[Terran]

procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETDESKWAL LPAPER, 0, PChar(Image1.Picture),
SPIF_SENDWININICHANGE);
end;

Только на рабочий стол стввятся картинки с расширением .bmp

[SunKnight]

Нет Вы меня неправильно поняли. Мне нужно в обьект Image не просто вставить изображение, а замостить т.е. заполнить всю область Image одним и тем же рисунком.

[Kostia]

procedure TForm1.FormPaint(Sender: TObject);
var
   x,y: integer; // левый верхний угол картинки
begin
   x:=0; y:=0;
   while y < Form1.Height do
   begin
     while x < Form1.Width do
     begin
       form1.Canvas.Draw(x,y,pic);
       x:=x+pic.Width;
     end;
     x:=0;
     y:=y+pic.Height;
   end;
end;

[SunKnight]

Всем огромное спасибо!

[mutabor]

Еще можно API функциями замостить. BitBlt или PatBlt вроде.
Заливку в них можно делать не только цветом, но и рисунком.