Z Memo na Listboxy i edit

Mam takie wczytanie Z Listboxów do Memo

var
  i: Integer;
begin
  i:= 0;
  while (i < ListBox1.Count) and(i < ListBox2.Count) do
  begin
    Memo1.Lines.Add(ListBox1.Items[i] + ';' + ListBox2.Items[i])+';'+Edit1.Text[i];   //dołożyłem teraz Edit1.Text
    Inc(i);
  end;
end;

To samo tylko jak to zrobić na odwrót (z powrotem) ?
z TMemo do Listbox1, Listbox2 i Edit1.Text (Edit1.text w każdym indeksie memo jest taki sam)

Już Ci to opisywałem - albo parsuj ciągi ręcznie (Pos, PosEx i Copy), albo za pomocą ExtractStrings.