Memo - обробка текста

[sv2311]

Текст состоит из предложений, которые заканчиваются точкой.в одном рядке может находится пару предложений или одно может занимать несколько рядков! все слова разделены пробелами!

Есть текст(MEMO1) в котором есть предложения, которые заканчиваются "!".Нужно вывести в MEMO2 все прежложения с таким окончанием.
вот то что я начудил

for i:=0 to Memo1.Lines.Count-1 do begin
if Pos('.',Memo1.Lines.Strings[i])>0 then begin
Memo1.selstart:=0;
Memo1.sellength:=length(Memo1.text);
memo1.setFocus;
memo2.Text:=copy(Memo1.Lines.Strings[i],pos('.',Memo1.Lines.Strings[i])+1,
pos('!',Memo1.Lines.Strings[i])-pos('.',Memo1.Lines.Strings[i]));
exit;

в моем коде оно копирует только после первой точки и до первого "!" и то только в одной строке. как зделать что бы находила все соответствия условию. очень прошу помочь - срочно!!! Sad