[zip000]

Код:

var
  bmp : TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('SomeBitmap.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  i, j : Integer;
begin
  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);
end;

Картинка будет рисоваться прямо на канве формы.