OnMouseOver bei selbst erzeugtem TPicture

[Puhbaehr]

Ich muss leider doch noch mal nachhacken.
Denn ich hab es bis jetzt nicht geschafft den EventHandler auf die Controls anzuwenden.

Delphi-Quellcode:

constructor TFm_Einstellungen.Create (Owner : TComponent);         
var
  i : word;
 begin
  inherited Create (Owner); 
  
  //...
 
  for i := 0 to ComponentCount do 
   begin
  
    if (Components[i] is TControl) then 
     begin
      TControl (Components[i]).OnMouseMove := MyMouseMove;
     end;
   end;
 end;

Mein Problem: "OnMouseMove" -> Undefinierter Bezeichner. Und nun?