[Kaktuz]

Делал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,1] := 'Text';
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid) do
  with Canvas do
    begin
      Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
    end;
end;

При запуске в каждой ячейке загружена картинка и после жмем кнопку которая грузит текст и текст остается на заднем плане относительно картинки.