TKeyEventArgs = class(TPersistent)

property Key: word;

property Shift: TShiftState;

constructor Create(AKey: word; AShift: TShiftState);