Nur für den Fall, dass du jedes mal Edit1.Text addest:
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Nr := ComboBox1.ItemIndex
Panel1.Caption := x.Strings[Nr];
Panel2.Caption := y.Strings[Nr];
y.Add (Edit1.Text);
x.Add (Edit1.Text);
end;
Falls du jedes mal das Gleiche machen willst, und sich nur die Zahl ändert.