RegExp := TRegExpr.Create;
      HTMLStr :=  'шлак ыврафып<title>ололо!!!!!11</title>шлак фываыв';
      RegExp.Expression := '<title>(.+?)</title>';
      RegExp.Exec(HTMLStr);
      ShowMessage(RegExp.Match[0]);