Совместимость: Delphi 3.x (или выше)
В обработчике события OnDrawCell элемента StringGrid поместите следующий код:

with (Sender as TStringGrid) do 
 with Canvas do 
  begin 
   {...} 
   Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic); 
   {...} 
  end; 

Используйте метод Draw() или StretchDraw() класса TCanvas. Image1 - это TImage с предварительно загруженным в него bitmap-ом.

Автор: Olivio Moura (olivio.moura@teknoland.com)
Источник: http://www.sources.ru/delphi/