ansonsten einfach so:
Delphi-Quellcode:
var chatlisten: array of TStringlist;
...
stelength(chatlisten,length(chatlisten)+1);
chatlisten[length(chatlisten)-1]:= TStringlist.create(self);
...
for i:=0 to length(chatlisten)-1 do
chatlisten[i].free;
setlength(chatlisten,0);
... also ich hoffe, das klar ist, wie's gemeint ist ... irgendwo musste dir halt noch merken, welcher chat zu welcher stringlist gehört ...
mfg deep_thought