急救：DBGrid中折行但是行高却不自动增加？

我在DBGrid中使用如下语句：
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var r: TRect;
begin
  r := Rect;
  with DBGrid1.Canvas do begin
    FillRect(Rect);
    DrawText(Handle, PChar(Column.Field.AsString), Length(Column.Field.AsString), r, DT_WORDBREAK);
  end;
end;但是其当前行的行高却没有增加，所以无法看到第二行的内容阿
各位大虾，多多指教。