Source position: luirecordbuffer.pas line 16
type TGetPrimaryKeyEvent = procedure(
Sender: TObject;
out NewKey: Integer
) of object;