Listboxen

[VeGA]

hi leute habe eine frage.....


also ich habe 2 listboxen.... beide soll ich jeweils mit einem array ausfüllen....


Die erste Listbox:

const namen:array[1..8]of string[15]=('Meier','Mueller','Schulz','Otto','Streeb','Paul sen','Hahnrich','Summer');
.
.
.
procedure TForm1.FormCreate(Sender: TObject);
begin
listbox2.clear;
listbox3.clear;

for n:=1 to 8 do
begin;
Listbox1.items.add(namen[n]);
end;
end;


Die zweite Listbox:
.
.
.
ich soll jeden namen eine Kilometerzahl zuordnen...zur verfügung habe ich ein edit.feld ein button und die zweite listbox

meine idee...km:array[1..8]of integer; <------- Fehlermeldung!!!


deswegen habe ich einfach

procedure TForm1.Button1Click(Sender: TObject);
begin
for n:=1 to 8 do
begin
Listbox1.items.add(edit1.text);
end;
end;

--------> klappt auch soweit aber ich kann mehr als 8 zahlen eingeben.. will aber nur 8 haben


n = meine laufvariable!!!