procedure TForm1.Button2Click(sender:TObject);
var
bmp:TBitmap;
rect:Trect;
i,j:integer;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('c:\abc.bmp');
  for i:=1 to DrawGrid1.RowCount-1 do
      for j:=1 to DrawGrid1.ColCount-1 do
      begin
      rect:=DrawGrid1.CellRect(j,i);
      DrawGrid1.Canvas.Draw(rect.Left,rect.Top,bmp);
      end;
end;