[AND_REY]

Так можно попробовать:

Код:

Type
 TMystr = Packed Record
  Name: String;
  Property1: Integer;
  Property2: Integer;
  Property3: Integer;
 end;

Var
  Mystr: Array [0..4] of TMystr;

procedure TForm1.FormActivate(Sender: TObject);
var
 i: Integer;
begin
Randomize;
 For i:=0 To 4 Do
  begin
   Mystr[i].Name:= IntToStr(i)+') Строка.';
   Mystr[i].Property1:= Random(100);
   Mystr[i].Property2:= Random(200);
   Mystr[i].Property3:= Random(300);
   Listbox1.Items.Add(Mystr[i].Name);
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
Var
 Property1, Property2, Property3: Integer;
begin
Property1:= Mystr[Listbox1.ItemIndex].Property1;
Property2:= Mystr[Listbox1.ItemIndex].Property2;
Property3:= Mystr[Listbox1.ItemIndex].Property3;
end;