Склеивание изображений

[SERG1980]

Не совсем доработанный пример но суть будет ясна.
в примере для нормальной работы надо заменить одну строку

procedure TForm1.Button1Click(Sender: TObject);
var BSource:Tbitmap;
    i,j:integer;
    Rect1:Trect;
begin
  BSource:=TBitMap.Create;
  BSource.LoadFromFile('tqfp.bmp');
  for i:=0 to 9 do
   for j:=0 to 9 do
    begin
     sleep(100);
     application.ProcessMessages;
     Rect1:=Bounds(i*30,j*30,30,30);//вот эту строку
     form1.Canvas.CopyRect(Rect1,BSource.Canvas,Rect1);
    end;
    BSource.Free;
end;