TWinControl und OnEnter-Event

[Geronimo]

Hallo alle zusammen,

ich hätte da gern mal ein Problem und zwar:

Ich möchte einer Reihe von Komponenten unterschiedlicher Typen
(TEdit, TButton, ...) per Code ein OnEnter Event zuweisen.
Laut Hilfe so das alles TWinControls. TWinControl hat laut Hilfe
auch ein OnEnter-Event.

Folgender Code

Delphi-Quellcode:

for i := 0 to self.ControlCount-1 do
   if (self.Controls[i] is TWinControl) then
     (Controls[i] as TWinControl).OnEnter := AdaptMenuOnEnter;

funktioniert nicht:

Fehler: Undeclared identifier

Wer kann mir helfen. Wenn das nicht so geht müsste ich alle
durchprüfen, ob TEdit oder TButton etc.

Geronimo