для этого достаточно изменить несколько букв:
s := IdHttp1.Get('http://www.google.ru');
Memo1.Lines.Append(Copy(s, pos('<title>', s) + 7, pos('</title>', s) - pos('<title>', s) -7));