Komponente zur Laufzeit erzeugen und events setzen?

[alienous]

Delphi-Quellcode:

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

procedure test;
var stringlist : Tstringlist;
begin

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

end;

so in etwa? ist der Sender dann die jeweilige irccompo?