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