我有个例子,是用的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;