[san-46]

Для примера, так:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  BM : TBitMap;
  X, Y : Integer;
begin
  BM := TBitMap.Create;
  try
    BM.LoadFromFile('clip0215.bmp');
    Y := 0;
    while Y < Image1.Height do begin
      X := 0;
      while X < Image1.Width do begin
        Image1.Canvas.Draw(X, Y, BM);
        Inc(X, BM.Width);
      end;
      Inc(Y, BM.Height);
    end;
  finally
    BM.Free;
  end;
end;