var 
  bmp: TBitmap; 
  hb: HBrush; 
  cnv: TCanvas; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  cnv := canvas; // oder Paintbox1.canvas oder TabControl1.canvas etc. 
  bmp := TBitmap.create; 
  bmp.loadfromfile('d:\bilder\bingo.bmp'); 
  hb := CreatePatternBrush(bmp.handle); 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  deleteobject(hb); 
  bmp.free; 
end; 
 
procedure TForm1.FormPaint(Sender: TObject); 
begin 
  selectobject(cnv.handle, hb); 
  PatBlt(cnv.handle, 0, 0, cnv.cliprect.right - cnv.cliprect.left, 
    cnv.cliprect.bottom - cnv.cliprect.top, PATCOPY); 
end;