Hola
Dos comentarios a tu codigo
1.- Si en la linea
Código:
if DataCol = 14 then
Pones
Código:
if Column.Field.DataType = ftMemo then
No tendras que preocuparte de que columna es el Memo
2.- Esto se ha discutido varias veces
Código:
Grid := TStringGrid(Sender);
Este "casteo" no es correcto ya que no es una herencia lineal
TCustomGrid --> TStringGrid --> TDbGrid
sino que es
TCustomGrid --> TCustomDrawGrid --> TDrawGrid --> TStringGrid
TCustomGrid --> TDbGrid
Aunque el truco funcione, se tiene que estar seguro de lo que se esta haciendo (para mas info mira algunos hilos que hay en los foros)