pointer auf TList

[theomega]

Geht leider immer noch nicht:

Delphi-Quellcode:

type TBeleg=record
        belegdatum: TDateTime;
        betrag: double;
        spendenbescheinigungsnr: string;
        ausgestelltam: TDateTime;
        sachlicherichtigkeit:string;
        rechnericherichtigkeit:string;
        einnahme:boolean;
        //nextbeleg:pointer;
        index:integer;
        text1:string;
        text2:string;
end;
PBeleg=^TBeleg;

.
.
.

var liste:TList;
kontodata:PBeleg;
.
.
.
for i:= 1 to counter do begin;
List.Create;

for j:= 1 to 10 do begin;
new(belegdata);
belegdata^.betrag := j;
liste.Add(belegdata);
end;

treeview.items[j].data := @ liste;
Liste.free;
end;

warum geht das nicht?
Gibt einen Absturz.