Variablen Massenhaft definieren

[Kegasetu]

Hallo Zusammen.

Bitte keinen großen Schrecken bekommen, aber ich habe etwas vor, was so manch einer als total unsinnig beschreiben würde.

Ich habe folgendne Code:

Delphi-Quellcode:

var  mmb11, lb11, ew11, zg111, zg211, zg311, zg411, zg511, pz111, pz211, pz311, pz411, pz511, spv111, spv211, spv311, spv411, spv511, spb111, spb211, spb311, spb411, spb511   :integer;
var bz111, bz211, bz311, bz411, bz511 : string;

if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 0)) then
  begin
  mmb11 := strtoint(edit1.Text);
  lb11 := strtoint(edit2.Text);
  ew11 := strtoint(edit3.Text);
  bz111 := edit4.Text;
  bz211 := edit5.Text;
  bz311 := edit6.Text;
  bz411 := edit7.Text;
  bz511 := edit8.Text;
  zg111 := strtoint(edit9.Text);
  zg211 := strtoint(edit10.Text);
  zg311 := strtoint(edit11.Text);
  zg411 := strtoint(edit12.Text);
  zg511 := strtoint(edit13.Text);
  pz111 := strtoint(edit14.Text);
  pz211 := strtoint(edit15.Text);
  pz311 := strtoint(edit16.Text);
  pz411 := strtoint(edit17.Text);
  pz511 := strtoint(edit18.Text);
  spv111 := strtoint(edit19.Text);
  spv211 := strtoint(edit20.Text);
  spv311 := strtoint(edit21.Text);
  spv411 := strtoint(edit22.Text);
  spv511 := strtoint(edit23.Text);
  spb111 := strtoint(edit24.Text);
  spb211 := strtoint(edit25.Text);
  spb311 := strtoint(edit26.Text);
  spb411 := strtoint(edit27.Text);
  spb511 := strtoint(edit28.Text);
  end;

Nun mein Problem, ich brauche das mit jeweils anderen Endziffern 40 mal (also z.B. mmb12; mmb13..mb410). Ich wollte erst ein paar Arrays füllen, aber mein Problem ist, das Programm wird sehr unübersichtlich werden und anhand der Bezeichnungen kann ich mich strukturieter durcharbeiten.