[AND_REY]

Первое что пришло в голову при большом колличестве Property:
(Массив можно сохр и загружать из файла).

Код:

Type
 TMystr = Packed Record
  Name: String;
  PropertyX: Array [1..50] of Integer;
 end;

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

procedure TForm1.FormActivate(Sender: TObject);
var
 i,j: Integer;
begin
Randomize;
 For i:=0 To 4 Do
  begin
   Mystr[i].Name:= IntToStr(i)+') Ñòðîêà.';
   For j:=1 To 50 Do
    begin
     Mystr[i].PropertyX[j]:= Random(100);
    end;
   Listbox1.Items.Add(Mystr[i].Name);
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
Var
 PropertyX: Array [1..50] of Integer;
 i: Integer;
begin
 For i:= 1 To 50 Do
  begin
   PropertyX[i]:= Mystr[Listbox1.ItemIndex].PropertyX[i];
  end;
end;