Ereignis-Name zur Laufzeit zuweisen

[Hansa]

Ist wohl doch nicht so einfach wie gedacht, was ? Deshalb verschiebe ich das ja laufend und mache es nicht fertig.

Letzter Stan der Dinge :

Delphi-Quellcode:

procedure TfrmKey.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var c : TComponent;     // <--- Überbleibsel 
    aLabel : TControl;
begin
  if Key = 13 then begin
    if (assigned(ActiveControl)) and
      (ActiveControl.ClassType = TPanel) then begin
      showmessage('Label: '+ActiveControl.Controls[0].Name+#13#10+
                  'auf Panel: '+ActiveControl.Name+#13#10+
                  'Sender ist Form: '+TControl(Sender).Name);
      aLabel := ActiveControl.Controls[0];
showmessage ('LÄLÄÖLÖÄ');
      TLabel(aLabel).OnClick(aLabel);  //<----- Zugriffsverletzung
    end;
  end;
  EnterTab(Sender,Key,Shift,[],[],true);
end;

Das c ist übrigens nur eine Hilfsvariable, die hier nicht gebraucht wird. Beim OnClick kracht es. Sehe nicht warum, aber es kracht.