Delphi 7 : TImage Tile

[hexor_boo]

Всем доброго времени суток!

Нужно "замостить" TImage маленьким изображением.

       bmpImage:=TBitmap.Create;
        Try
         bmpImage.LoadFromFile(...); //Загружаю BMP-файл размером 100x100 px
         imgBG.Canvas.Brush.Bitmap:=bmpImage; //Ассоциирую его с кистью TImage
         rectFill.Left:=0;
         rectFill.Top:=0;
         rectFill.Right:=400;
         rectFill.Bottom:=400;
         imgBG.Canvas.FillRect(rectFill); //Пробую замостить квадрат 400x400 px
        Finally
         FreeAndNil(bmpImage);
        End;

И эффекта почему-то нет: отображается только 1 экземпляр изображения 100x100. Что я делаю неправильно?

[hexor_boo]

Делаю так:

       bmpImage:=TBitmap.Create;
        Try
         bmpImage.LoadFromFile(SDBV.bg_pic_path);
         imgBG.Canvas.Brush.Bitmap:=bmpImage;
         imgBG.Canvas.FillRect(Rect(0,0,400,400));
        Finally
         imgBG.Canvas.Brush.Bitmap:=Nil;
         bmpImage.Free;
        End;

- то же самое: отображается BMP-шник 100x100

[hexor_boo]

Бинго!

       bmpImage:=TBitmap.Create;
        Try
         imgBG.Picture:=Nil;//Эта строчка оказалась решающей (в предыдущей части кода в TImage была загружена картинка, которая мешает, как выяснилось)
         bmpImage.LoadFromFile(SDBV.bg_pic_path);
         imgBG.Canvas.Brush.Bitmap:=bmpImage;
         imgBG.Canvas.FillRect(imgBG.BoundsRect);
        Finally
         imgBG.Canvas.Brush.Bitmap:=Nil;
         bmpImage.Free;
        End;

[hexor_boo]

Осталось найти аналогичное решение для TJPEGImage (потому что файлы ощутимо меньше, чем BMP) и для TPNGObject (потому что нужна поддержка прозрачности, компонент с которым работаю прилагается). GIF возможно тоже буду добавлять.

[hexor_boo]

Решение для TJPEGImage:

 Procedure TileBG_JPG(imgBG : TImage; SDBV : TServerDBVars);
  Var
   srcImg       : TImage;
   X, Y, dX, dY : Integer;
  Begin
   srcImg:=TImage.Create(frmMain);
    Try
     srcImg.Visible:=False;
     srcImg.AutoSize:=True;
     srcImg.Picture.LoadFromFile(SDBV.bg_pic_path);
     dX:=srcImg.Width;
     dY:=srcImg.Height;
     Y:=0;
     imgBG.Picture:=Nil;
      While (Y<SDBV.base_height) Do
       Begin
        X:=0;
         While (X<SDBV.base_width) Do
          Begin
           imgBG.Canvas.Draw(X, Y, srcImg.Picture.Graphic);
           Inc(X, dX);
          End;
        Inc(Y, dY);
       End;
    Finally
     srcImg.Free;
    End;
  End;