[lmikle]

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

Код:

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;