Performance ListView vs. StringGrid

[ibp]

Delphi-Quellcode:

var nitem:TListItem;
  zahl:string;
begin
.
.
c:=3000;
for i:=1 to c do begin
    zahl:=inttostr(i); //<- nur einmal anstatt 4 mal!
    nitem:=ListView1.items.add;
    nitem.caption:=zahl;
    nitem.subitems.add(zahl+'-1');
    nitem.subitems.add(zahl+'-2');
    nitem.subitems.add(zahl+'-3');
end;

sollte auch schon ein wenig bringen!