Oh noch etwas...
1.)
listview1.Items.Item[j].ListView.Canvas.Brush.Color:=clred;
"I" oder wirklich "J" ???
2.)
Mach den TStringList.Create ausserhalb der Schleife ...
Delphi-Quellcode:
try
liste := tstringlist.create
For ....
begin
end
finally
FreeAndNil(liste);
end;