我有个例子,是用的stringgrid控件,你参考一下:
  procedure  Tfrmclerktable.StringGrid1DrawCell(Sender:  TObject;  ACol,
      ARow:  Integer;  Rect:  TRect;  State:  TGridDrawState);
      begin
    StringGrid1.RowHeights  [arow]  :=  40  ;
    if  (arow  =  0)and  (acol=5)  then
      begin  
        stringgrid1.canvas.textout(rect.left+10,rect.top+4,'你好');
        stringgrid1.canvas.textout(rect.left+5,rect.top+20,'可以吗?');
      end;
      end;