[Nyctos Kasignete]

Код:

var
  bmp: TBitmap;
  i, j: Integer;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile('1.bmp');
    for i := 0 to Width div bmp.Width do
      for j := 0 to Height div bmp.Height do
        Canvas.Draw(i * bmp.Width, j * bmp.Height, bmp);
  finally
    bmp.Free;
  end;
end;

Рисовать на Canvas'е какого-то Bitmap'а (не на форме) — так же.