Daten aus Listbox auf Editfelder übertragen??

[plautzer]

Abend,

ich komme nicht ganz weiter, und zwar habe ich eine listbox und wenn ich da einen eintrag (id) anklicke dann sollen die zu der id gehörenden daten in edit-feldern angezeit werden.

so schaut das bei mir aus (ich weiß das es falsch ist!)

Delphi-Quellcode:

var i, p:integer;
a:string;
begin
for i:= 0 to listbox1.Items.Count -1 Do
Begin
if listbox1.Selected[i] then
begin
        listbox2.Clear;
        a:=listbox1.Items[i];
        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('select Untergruppe from untergruppe.db where Untergruppe LIKE ''' + a + '%''');
        Query1.ExecSQL;
        query1.Active:=true;
        for p:= 0 to query1.RecordCount-1 Do
          Begin
            ListBox2.Items.Add(query1.Fields[0].Asstring);
            query1.Next;
          end;

end;
     with table1 do
begin
  Filter := 'gruppe = ' + a;
  Filtered := True;
        edit4.Text:=table1gruppe.Value;
        edit5.Text:=table1name.value;
        edit6.Text:=table1vorname.Value;
        edit7.Text:=table1strasse.Value;
        edit8.Text:=table1Hausnr.Value;
        edit9.Text:=table1plz.Value;
        edit10.Text:=table1ort.Value;
        edit11.Text:=table1telefon.Value;
        edit12.Visible:=false;
end;
   end;
end;

ich habe edit-felder gewählt, da ich 3 listboxen habe und per klick auf die ID in die listbox sollen eben die daten auf den selben editfeldern ausgegeben werden.

Thx im voraus,

Plautzer