Ausgewählten Eintrag aus Listbox in Editbx schreiben

[Marcer]

Ich hab nun ein weiteres Problem, Sinn und Zweck des Programms soll es sein, diverse Gitarrenakkorde in Tab-Form darzustellen, wobei die Editboxen für die jeweiligen Saiten stehen.
Nun hab ich folgendes Stück Quelltext:

Delphi-Quellcode:

E:=-1;A:=1; D:=1; G:=1; H:=-1; E2:=-1;
for i:=0 to 11 do
begin
E:=E+1; A:=A+1; D:=D+1; G:=G+1; H:=H+1; E2:=E2+1;
if ListBox1.Selected[i] then
E_Edit.text:=inttostr(E);
A_Edit.text:=inttostr(A);
D_Edit.text:=inttostr(D);
G_Edit.text:=inttostr(G);
H_Edit.text:=inttostr(H);
E2_Edit.text:=inttostr(E2);
end;

Es funktioniert aber nur das Zählen in der ersten Editbox, die anderen bleiben, egal welches item ich aus der Listbox auswähle konstant auf 13 bzw. 11, wenn ich für jedes Editfeld eine einzelne Prozedur mache funktionierts, aber da ich ja schreibfaul bin
Weiß vielleicht jemand wie das auch so geht..?