[ecfisa]

Hola deivi.

De nada, inclusive podes aplicarlo a varias columnas con unas pocas modificaciones:

Código Delphi [-]
const
  // Cantidad de columnas que van a restringirse
  NCOLS = 3; 
  //Arreglo constante con la cantidad de caracteres permitidos para cada columna a restringir.
  ALLOWED_CHARS: array[1..NCOLS] of Integer = (2, 1, 4); 

type
  TIndex = 1..255;
  TIndexSet = set of TIndex;

var
  ColumnsSet: TIndexSet = [1, 2, 3]; // Índice de las columnas a restringir.

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  with TDBGrid(Sender) do
    if (EditorMode) and (SelectedIndex in ColumnsSet) then
      if (Length(TInPlaceEdit(Controls[0]).Text) > ALLOWED_CHARS[SelectedIndex]) and (Key<>#8) then
        Key:= #0;
end;

En el ejemplo se restringen las columnas uno, dos y tres a la cantidad de tres, dos y cinco caracteres respectivamente.

Saludos