[angvelem]

Так ведь ты текст не вывел. То что ты его присвоил ячейке не означает, что он выведется на передний план.

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid).Canvas do
  begin
    Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
    TextOut(Rect.Left + Font.Size, Rect.Top + 2, 'Owner Drawn text');
  end;
end;

точнее так:

Код:

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid), Canvas do
  begin
    Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
    Brush.Style := bsClear;
    if Cells[ACol, ARow] <> '' then
      TextOut(Rect.Left + Font.Size, Rect.Top + 2, Cells[ACol, ARow]);
  end;
end;