THtmlHint vs custom procedure in OnShowHint

Hi, I would like to use THtmlHint in my application, that uses custom procedure called in Application.OnShowHint action.

The code is following:

procedure TfrmMain.FormCreate(Sender: TObject);
  Application.OnShowHint:= hintShow;

procedure TfrmMain.hintShow(var HintStr: String; var CanShow: Boolean; var HintInfo: THintInfo);
var R, C: Integer;

//checking at wchich component the cursor points, changing the content of "HintStr" etc.


The reason for this is the need to show different hint message for each row in stringgrids. If I use it with THtmlHint, there is only a big black area displayed in the upper left corner of the screen, instead of the actual hint message.
How do I achieve the desired result (show different hint message for each row in stringgrids) with THtmlHint?

Thank you.

With TAdvStringGrid, this can be easily done with the OnGridHint event and for example:

procedure TForm4.AdvStringGrid2GridHint(Sender: TObject; ARow, ACol: Integer;
  var hintstr: string);
  hintstr := '<b>'+inttostr(acol)+'</b>:<i>'+inttostr(arow)+'</i>';

I missed this. Thank you!