aus listbox in edit einschreiben

[Bruce86]

hi leute also folgendes problem stellt sich mir gerade: ich schreibe von edits in eine listbox! Um z.b. einen wert zu ändern oder wenn was falsch geschrieben sein sollte, soll aus der listbox wieder in die edits zurückgelesen werden! funktioniert auch irgendwie, aber bei mir wird nur der Name zurückgegeben nicht der vorname mehr! hinterlege euch mal den quellcode und nen screenshot fällt euch vllt ein was da falsch ist?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); //Hinzufügen
begin
ListBox1.Items.Add( NameEdit.Text+', '+VornameEdit.Text);
NameEdit.Text          := '' ;
VornameEdit.Text       := '' ;
privatEdit.Text        := '' ;
mobilEdit.Text         := '' ;
NameEdit.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject); //Ändern
begin
if ListBox1.ItemIndex <> -1
   then
      begin
        ListBox1.Items.Insert(ListBox1.ItemIndex, NameEdit.Text+', '+VornameEdit.Text);
        ListBox1.Items.Delete(ListBox1.ItemIndex);
      end
   else ShowMessage('Es wurde kein Eintrag zum Ändern markiert');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var s: string;
    p: integer;
begin
  if ListBox1.ItemIndex >-1
     then
       begin
         s := ListBox1.Items[ListBox1.ItemIndex];
         p := Pos (',' , s);
         NameEdit.Text := Copy(s,1,p-1);
         Delete (s,1,p+1);
         p := Pos (',',s);
         VornameEdit.Text := Copy(s,1,p-1);
       end;
end;

Vielen dank für eure hilfe

Bruce86