const
  EmailRE = '<title>(.*)</title>';
var
code,tmp,html:string;
r : TRegExpr;
begin
html:='<title>епт</title>';
r := TRegExpr.Create;
try
     r.Expression := EmailRE;
     if r.Exec () then
      REPEAT
       tmp:=r.Match [1];
       code := code + tmp;
      UNTIL not r.ExecNext;
    finally r.Free;
   end;
ShowMessage(code);