1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var s: String;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  with Item do
  begin
    Caption := s;
    SubItems.Add(s);  //<-- hierbei wird Speicher reserviert, aber nie wieder freigegeben
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.Items.Count := 2048;
  Randomize;
  s := IntToStr(Random(MAXINT)); //um keinen konstanten String zu haben
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

with PLVDispInfo(NMHdr)^.item do
begin
  if (mask and LVIF_TEXT) <> 0 then
    if iSubItem = 0 then
      StrPLCopy(pszText, Item.Caption, cchTextMax - 1)
    else
      with Item.SubItems do
        if iSubItem <= Count then
          StrPLCopy(pszText, Strings[iSubItem - 1], cchTextMax - 1)
        else pszText[0] := #0;
 ...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

...

uses ..., CommCtrl;

type
  TForm1 = class(TForm)
    ListView1: TListView;
  private
    procedure WMNOTIFY(var M: TWMNotify); message WM_NOTIFY;
  end;

const
  entry_name = 'Testname';
  entry_size = 1234;

...

procedure GETDISPINFO(item: PLVITEM);
//Daten für die ListView bereitstellen
begin
  with item^ do
    if (mask and LVIF_TEXT) <> 0 then
    case iSubItem of
      0: pszText := PChar(entry_name);
      1: wvsprintf(pszText, '%u', PChar(@entry_size));
    end;
end;

procedure TForm1.WMNOTIFY(var M: TWMNotify);
//LVN_GETDISPINFO für ListView1 abfangen
begin
  with M.NMHdr^ do
    if hwndFrom = ListView1.Handle then
      case code of
        LVN_GETDISPINFO: GETDISPINFO(@PLVDispInfo(M.NMHdr)^.item);
        else Inherited;
      end
    else Inherited;
end;