Komponente zur Laufzeit erzeugen und events setzen? [TEIL2]

[alienous]

da der mod meinte das meine zweite frage aus dem anderen thread nich zum thema passt, aber mir kein anderes thema einfiel, weils ser wohle zum thema passt, stelle ich die frage nun nocheinmal! der mod is ja off und ich suche dringend ne antwort, also hier nochmal:

Delphi-Quellcode:

procedure onConnect(Sender: TObject);
begin
  // wie greife ich auf die aufrufende irccompo zu?
end;

procedure test;
var stringlist : Tstringlist;
begin

  stringlist := Tstringlist.Create;
  stringlist.AddObject('name1',TIdIRC.Create(Form1));
  tidirc(stringlist.Objects[0]).OnConnect := onConnect;
  stringlist.Free;

end;

@meflin, ja hatte da einen fehler gehabt...
ist der aufruf so nun korrekt? wie greife ich in der procedure onconnect; nun auf die aufrufende componente zu?
Sender:TObject habe ich vom event der irccompo übernommen!

danke