Okay.
Es ist für mich etwas kurios, aber es funktioniert jetzt...
Die Procedure heißt Typing(Sender: TObject);
& beim Create der Komponente genügt:
Delphi-Quellcode:
inherited Create(AOwner);
self.OnTyping := Typing
Dann funktioniert es.
DANKE für eure Hilfe