Source position: valedit.pas line 112
type TGetPickListEvent = procedure(
Sender: TObject;
const KeyName: string;
Values: TStrings
) of object;