Komponente zur Laufzeit erzeugen und events setzen? [TEIL2]

[mkinzler]

Delphi-Quellcode:

procedure TForm.onConnect(Sender: TObject);
begin
  // wie greife ich auf die aufrufende irccompo zu?
  (Sender as TidIrc).<Eigenschaft>
end;

procedure TForm.test;
var stringlist : Tstringlist;
begin

  stringlist := Tstringlist.Create;
  stringlist.AddObject('name1',TIdIRC.Create(Form1));
  tidirc(stringlist.Objects[0]).OnConnect := onConnect; //Warum StringListe? Nimm doch besser einen dyn Array
  stringlist.Free; /7In diesem fall schlecht! Fahr mal mit einem Auto, was du verschrottet hast.

end;