Procedurepointer übergeben

[swkevin08]

Übergebe doch beim Konstruktor dein "Self.DoItLocal" und dann deiner TSecond Instanz.

Code:

constructor TFirst.Create(click: TClick);
var
   c: TSecond;
begin
   c:= TSecond.Create;
   c.DoIt:= click;
end;