Не пашет.
Где ошибка хз, переменные объявил так:
var
txt,a:string;
i: integer;

Но в любом случае парсить надо не одну линию а весь текст в memo1