Помогите разобраться. Делфи

У меня не получается, мой код ниже

Дан текст в компоненте Memo. Опередить в каких позициях в нем начинается каждое новое предложение (сначала найти позиции точек) (не использовать pos, delete, copy…)

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer; st:string;
begin
for i:=0 to memo1.lines.count-1 do
begin
st:=memo1.lines;
for j:=1 to length(st) do

if (st='.') and (st[i+1]=' ') then
ListBox1.items.add(inttostr(i+2));

end;
end;

end.

Желаемый результат не выводит. Помогите пожалуйста