1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

type
  // Zwei Klassen aus einer von extern erhaltenen Unit mit zugehörigen DLLs:
  TKlasse1 = class (TExtern)
  protected
    function Execute (...)
  end;

  TKlasse2 = class (TExtern)
  protected
    procedure onEreignis (..)
  end;

  // Meine eigene Klasse
  TEigeneKlasse = class (...)
  private
    ...
  public
  end;


...

// Ein nicht kontrollierbares Ereignis löst onEreignis aus,
// Instanz von Klasse1 wird erzeugt und an externe Bibliothek weiter gegegeben. 
procedure TKlasse2.onEreignis();
var  InstanzKlasse1 : TKlasse1;
begin
  InstanzKlasse1 := TKlasse1.Create;
  irgendwieExternRegistrieren (InstanzKlasse1);
  // keine Ahnung, was genau in der DLL passiert
end;

// Execute wird bei Ereignissen durch den fremden Code aufgerufen
function TKlasse1.Execute (..)
begin
  // Hier soll ich auf die übergabenen Parameter reagieren und Ereignisse meiner eigenen Klasse aufrufenn, 
        // wie TEigeneKlasse.onBlabla. Darauf habe ich natürlich keinen Zugriff. Ich habe auch keine Instanz meiner eigenen Klasse zur Verfügung

end;

initialization
  ExterneVariable := TKlasse2.Create(); // ExterneVariable ist eine globale Variable aus einer externen Unit