EditKeyPreview

procedure EditKeyPreview(

  AGrid: TKCustomGrid;

  AEditor: TCustomEdit;

  ACol: Integer;

  ARow: Integer;

  var Key: Word;

  ShiftState: TShiftState;

  var IsGridKey: Boolean

);