Source position: grids.pas line 341
type TValidateEntryEvent = procedure(
sender: TObject;
aCol: Integer;
aRow: Integer;
const OldValue: ;
var NewValue:
) of object;