Dbgrid Unir Celdas

[nikata]

Hola a todos

Tengo un problema, estoy haciendo un calendario para hacer un tipo de ocupacion, lo tengo hecho con un dbgrid, pero necesito escribir en varios dias juntos escribir un texto, por ejemplo del 1 al 4 "Pepito".

He consiguido pintar las celdas, pero no escribir.
en el evento DBGrid1DrawColumnCell tengo puesto lo siguiente:
dbgrid1.Canvas.Textout(rect.Left+ Font.Size,rect.Top,'Pepito');
solo me escribe en la primera celda. 'Pep'

Salu2