Memo in Listbox einfügen

[CorsaGsi16v]

Hallo,
wie kann ich die Zeilen eins Memos nach einander in eine ListBox schreiben lassen das jede einzelne Zeile ein neues Item in der ListBox darstellt!?

MfG
Christian

Danke schon mal für die Hilfe

[PierreB]

Delphi-Quellcode:

for i := 0 to Memo1.lines.count-1 do
Listbox1.Items.Add(memo1.lines[i]);

Ungetestet.

[Lannes]

Hallo,
oder mit einem 1-Zeilen-Code:

Delphi-Quellcode:

ListBox1.Items.AddStrings(Memo1.Lines);