Dynamische Events?

[silent vapor]

Hab ich ja:

Delphi-Quellcode:

type
 private
  procedure onmytitleload(Sender: TObject);
end;

...

procedure onmytitleload(Sender: TObject);
begin
if Sender is TWebBrowser then
    begin
     //mach irgendwas
    end;
end;


procedure browsererstellen;
var wb : TWebbrowser;
begin
wb := TWebBrowser.Create(Form1);
wb.OnTitleChange := onmytitleload;  // <<< Hier tritt ein Fehler auf
end;