Text aus mehreren Edits in eine Listbox

[SirThornberry]

so sollte es gehen

Delphi-Quellcode:

begin
  Listbox1.Items.BeginUpdate;
  Listbox1.Items.Add(Edit1.Text);
  Listbox1.Items.Add(Edit2.Text);
  Listbox1.Items.Add(Edit3.Text);
  Listbox1.Items.Add(Edit4.Text);
  Listbox1.Items.EndUpdate;
end;

oder

Delphi-Quellcode:

var LCount: Integer;
begin
  Listbox1.Items.BeginUpdate;
  for LCount := 1 to 4 do
    Listbox1.Items.Add(TEdit(FindComponent('Edit' + inttostr(LCount))).Text);
  Listbox1.Items.EndUpdate;
end;