[Konrad]

Вот подробнее:

2 memo
(memo1 - твой текст
и
memo2 - результат)
1 button скодом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n,k,t:integer;
h,o,o1,h5:byte;
s,s0,stri:string;
aa,ab:array[0..6]of byte;
begin
s0:='name';
for i:=0 to 6 do
aa[i]:=i shr 1;
n:=memo1.Lines.Count;
h:=aa[2];
if s0[aa[4]+aa[5]]=char($65) then
begin
o1:=202;
j:=n-h;
h5:=110;
end
else
begin
o1:=102;
j:=n+h;
end;
for i:=h-1 to j do
begin
stri:=memo1.Lines.Strings[i];
ab[h]:=0;
if stri[5]=' ' then s0:='0';
o:=o1 div 101;
if o=0 then k:=length(s)-14*o else
begin
s:=stri+''+inttostr(o);
k:=length(s);
end;
if k>(o+aa[3]+aa[6]) then
if ord(s[h])=h5 then
if ord(s[o])=$61 then
if ord(s[1+o])=109 then
if ord(s[2+o])=(o1 shr 1) then
if s0='0' then ab[h]:=8 else ab[h]:=0;
for t:=2 to 6 do
ab[t]:=t+k;
if (ab[1]=sqr(o)*2) and(aa[o]>0) then
memo2.Lines.Add(copy(s,h,length(s)-1));
end;
end;

А и конечно же для обработки ошибок и загрузки с файла в мой код нужно добавить код lmikle-а.
там дело 2-х минут - разберешся.