...
 
type 
  TForm1 = class(TForm) 
    ListBox1: TListBox; 
    Button1: TButton; 
    Button2: TButton; 
    procedure FormCreate(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  private 
{ Private-Deklarationen} 
  public 
    procedure OnListBoxChange(sender: TObject); 
  end; 
 
var 
  Form1: TForm1; 
  NeuListBox: TStringList; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.OnListBoxChange; 
begin 
  ListBox1.Items := NeuListBox; 
// hier alles, was bei OnChange passieren soll. 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  NeuListBox := TStringList.create; 
  NeuListBox.onChange := OnListBoxChange; 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  NeuListBox.free; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ListBox1.items.add('Alte Variante ohne OnChange'); 
// darf ab sofort nicht mehr benutzt werden 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
// ab jetzt richtig 
  Neulistbox.add('Neue Variante mit OnChange'); 
end;