Du musst erst ein OnKeyDown Erreignis erstellen und dann beim Erstellen der neuen Komponente dieses erreignis bekoannt machen.
Delphi-Quellcode:
var
ts: TTabSheet;
mem: TWebBrowser;
begin
//TabSheet erstellen
ts := TTabSheet.Create(PageControl1);
ts.Caption := 'Window &' + IntToStr(PageControl.PageCount);
ts.PageControl := PageControl1;
ts.DoubleBuffered := True;
PageControl.ActivePage := ts;
//Memo erstellen
mem := TMemo1.Create(nil);
mem.OnKeyDown := MemoKeyDown;
Die Prozedur MemoKeyDown muss auch im Interface-Teil bekannt gemacht werden.