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