TOnPostChanges

type TOnPostChanges = procedure(

  Sender: TCustomVirtualDBGrid;

  const FieldNameOrIDText: string;

  Column: TcolumnIndex;

  ColumnType: TColumnType;

  RecordData: TRecordData;

  RowIndex: Cardinal;

  var NewValue: string;

  var PostChanges: Boolean

) of object;