Dzielenie memo na kilka

Witam. Mam memo i w nim jakiś tekst. Chciałbym to memo podzielić i wrzucić do 3 innych. Powiedzmy mam taki tekst

tekst1 tekst1
tekst2 tekst2
tekst3 tekst3

To miało by podzielić tak by w każdym oddzielnym memo było tekst1 tekst1 itd.
Mogę ten tekst podzielić jakimś separatorem czy coś by program umiał rozpoznać kiedy kończy się jakaś część, to jak to rozdzielę nie ma znaczenia bo potem to będzie działało w drugą stronę czyli łączyło i zapisywało.

Może tak:

<jeden> tekst1 tekst1 tekst bla bla <dwa> tekst2teskt2 <trzy> tekst3

I program by znajdywał te separatory i odpowiednio dzielił, tylko jak? Nie mam bladego pojęcia jakich do tego użyć funkcji, jak to sensownie i sprawnie dzielić i potem łączyć, nie lubię memo i nie umiem w nim takich czarów robić.

Może jakiś inny komponent do tekstu np. richedit? Dla mnie to nie ma żadnego znaczenia jaki, byle by szło pisać w nim, wklejać ręcznie itp.

Proszę o pomoc bo nie wiem co robić

Więc tak, jeżeli chcesz przenieść tylko jedną linię to możesz zrobić tak:

Zmienna := Memo1.Lines[0];

Teraz w zmiennej siedzi Pierwsza linia z Memo.

Może też ci się przydać procedura

ExtractStrings([' '], [','], PChar('tekst do rodzielenia'), Memo2.Lines);

Wedy tekst zawarty w trzecim paragrafie ('tekst do rodzielenia') zostanie rozdzielony wg. separatora podanego w pierwszym parametrze (' '), z pominięciem parametru drugiego, do Memo2.

No niestety z liniami już kombinowałem i to nie to, bo tekst może mieć wiele linii, pusych itp i to wszystko trzeba przenieść :/