mailto: herausfiltern

[aaron]

ok, habe aber noch eine andere frage dazu,
falls diese nun nicht mehr hierhin gehört verschiebe sie bitte.

im memo6 stehen nun untereinander ein paar mailadressen
ich möchte sie umwandeln mit Ord und zeilenweise in eine listbox übergeben.
so wie ich es jetzt habe nimmt der immer alle zeilen des memos und packt die zeile für zeile in die listbox, was mache ich falsch?

Delphi-Quellcode:

var
  i: integer;
  s1, s2: string;
begin
  s1 := Memo6.Text;
  s2 := '&#';
  for i := 1 to Length(s1) do
    s2 := s2 + Format('%d', [Ord(s1[i])]) + ';&#';
  for i := ListBox1.items.count - 1 downto 0 do
    Listbox1.Items.add(s2);

denke es liegt daran:
s1 := Memo6.Text; kriegs nicht hin