jak wyeksportować z pliku memo tekst umieszczony międ

jak wyeksportować z pliku memo tekst umieszczony między nawiasami?
chodzi by tekst &ltpierwszy tekst&gt&ltdrugitekst&gt&lttrzeci&gt
zostały przeniesione do odpowiednich trzech pól edit..........

var
Text : String;
begin
Text := '&ltpierwszy tekst&gt&ltdrugitekst&gt&lttrzeci&gt';
Edit1.Text := Copy(Text, 2, Pos('&gt', Text) - 2);
Delete(Text, 1, Pos('&gt', Text));
Edit2.Text := Copy(Text, 2, Pos('&gt', Text) - 2);
Delete(Text, 1, Pos('&gt', Text));
Edit3.Text := Copy(Text, 2, Pos('&gt', Text) - 2);
Delete(Text, 1, Pos('&gt', Text));
end;--Pozdrawiam {hello}
Tomasz K.