Спарсить предложение

procedure TForm1.Button1Click(Sender: TObject);
var p: TPregArray;
begin
  if preg.match_all(Edit1.Text,memo1.Text,p) then begin
    memo2.Text:=p[1].Text;
    p.free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    s:shortstring;
    a:array of shortstring;
    n:integer;
begin
if OpenDialog1.Execute then
assignfile(f,OpenDialog1.FileName);
reset(f);
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  if copy(s,1,5)='Игрок' then
   begin
    n:=n+1;
    setlength(a,n);
    a[n-1]:=copy(s,1,pos('.',s));//сохраняем в переменную массив
    Memo1.Lines.Add(a[n-1]);//выводим в Мемо
   end;
 end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var vrag:string;
s,s1:string;
Http  : TidHttp;
Data  : TStringList;
var p: TPregArray;
begin
HTTP := TIdHTTP.Create(nil); // HTTP
HTTP.HandleRedirects := True;
application.ProcessMessages;
// Чтобы не выдавало ошибку 302, в Delphi 2010 не важно
HTTP.AllowCookies := True;
HTTP.request.useragent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
HTTP.CookieManager := IdCookieManager1;
Http := TIdHTTP.Create(Self);
application.ProcessMessages;
S:=idhttp1.get('http://'+sedit2.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid='+sedit1.Text); // авторизация
application.ProcessMessages;
if preg.match_all('/(игрок.+?)<br/i',s,p) then begin
smemo1.lines.add (p[1].Text); // в мемо ничего не появляется
p.free;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var vrag:string;
s,s1:string;
Http  : TidHttp;
Data  : TStringList;
var p: TPregArray;
begin
HTTP := TIdHTTP.Create(nil); // HTTP
HTTP.HandleRedirects := True;
application.ProcessMessages;
// Чтобы не выдавало ошибку 302, в Delphi 2010 не важно
HTTP.AllowCookies := True;
HTTP.request.useragent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
HTTP.CookieManager := IdCookieManager1;
Http := TIdHTTP.Create(Self);
application.ProcessMessages;
S:=idhttp1.get('http://'+sedit2.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid='+sedit1.Text);
application.ProcessMessages;
UTF8toANSI(s);
if preg.match_all('/(игрок.+?)<br/i',s,p) then begin
    // [url]http://jqbook.narod.ru/delphi/preg.htm[/url]
    smemo1.lines.add   (p[1].Text);
    p.free;
  end;