El problema es que el evento OnKeyPress en TWinControl está protegido. Para "desprotegerlo" puedes usar:
Código Delphi
[-]
type
THackWinControl = class(TWinControl);
...
if Assigned(THackWinControl(ActiveControl).OnKeyPress) then
..
Y por cierto, es innecesario poner ActiveControl as TWinControl ya que ActiveControl es precisamente de tipo TWinControl.
// Saludos