[Delphi] Podzielić string'a ?

Mam takiego string'a:
Wiadomość1#Wiadomość2#wiadomość3
No i chce żeby program "podzielił" ten string tak aby w TEdit wyświeltić Wadomość1, w drugim TEdit Wiadomość2 itp. A chciałbym aby znak # dzielił text na te wiadomości. Chyba rozumiecie :D ?

---

var  Lista: TStringList;  Text: String; begin  Text := 'Wiadomość1#Wiadomość2#wiadomość3';  Lista := TStringList.Create;  try    ExtractStrings(['#'], [], Text, Lista);    Edit1.Text := Lista[0];    Edit2.Text := Lista[1];    Edit3.Text := Lista[2];  finally    Lista.Free;  end; end;

http://www.planeta-delphi.com

Dzięks :)
działa :D

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl