Ausdruck vereinfachen

[marc.beeh]

Hallo,
wie kann man diesen Ausdruck vereinfachen (verkürzen)?

Delphi-Quellcode:

  namen[1] := Label1.Caption;
  namen[2] := Label2.Caption;
  namen[3] := Label3.Caption;
  namen[4] := Label4.Caption;
  namen[5] := Label5.Caption;
  namen[6] := Label6.Caption;
  namen[7] := Label7.Caption;
  namen[8] := Label8.Caption;
  namen[9] := Label9.Caption;
  namen[10] := Label10.Caption;
  namen[11] := Label11.Caption;
  namen[12] := Label12.Caption;
  namen[13] := Label13.Caption;
  namen[14] := Label14.Caption;
  namen[15] := Label15.Caption;