Recortar un String

[mjjj]

muchas gracias por tu tiempo.... pero tengo un problema me tira un error que dice asi:

[Pascal Error] U_NVAOC.pas(17): E2065 Unsatisfied forward or external declaration: 'TStringGrid.GetEditLimit'

en la linea de "function GetEditLimit: Integer; override;"

en que parte pongo el resto del codigo que me recomendaste?

Código Delphi [-]
function TStringGrid.CreateEditor: TInplaceEdit;
begin
  // Creamos el objeto original
  Result := inherited CreateEditor;

  // Ponemos el objeto creado en mayúsculas  TExInplaceEdit(Result).CharCase := ecUpperCase;
end;

gracias