Procedure für zur Laufzeit erstelle komponente

[himitsu]

Bei mir geht sowas

Delphi-Quellcode:

Procedure MeineCloseProzedur(Sender: TObject; var Action: TCloseAction);
  Begin
    Action := caFree;
  End;

...

MeinControl.OnClose := MeineCloseProzedur;