[lmikle]

Клади в ListItem.Data указатль на свои структурки.

Код:

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

type   TMyRecord = record      // Твоя запись    end;    PMyrecord = ^TMyRecord;   var   V : Array [1..N] Of TMyRecord; // массив твоих записей   procedure TForm1.AddItems; var   I : Integer;   AItem : TListItem; begin   For I := Low(V) To High(V) Do     Begin       AItem := TListView1.Items.Add;       AItem.Data := @V[i]; // Кажется так.       ... end;   procedure TForm1.ListView1Select(...); begin   Memo1.Lines.Clear;   If ListView1.Selected <> Nil Then     Memo1.Lines.Add(PMyrecord(ListView1.Selected.Data).SomeStringField); end;