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