1:

l:=Pos(s,'</title>')-Pos(s,'<title>')-7;//7=length('<title>')					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function GetTitleFromHTML(HTMLDoc: String):String;
var
I: Integer;
Found: Boolean;
html: TStringList;
begin
 html := TStringList.create;
 html.loadfromfile(htmldoc);
 i := 0;
 found := false;
 while not found do
  begin
   if pos('<title>', html.strings[i]) > 0 then
    begin
     Result := copy(html.strings[i], pos('<title>', html.strings[i]) + 7, (pos('</title>', html.strings[i]) - pos('<title>', html.strings[i]) - 7));
     Found := true;
    end
   else
    begin
     Inc(i);
    end;
  end;
html.free;
end;

//Anwendungsbeispiel:
if opendialog1.execute then
 showmessage(GetTitleFromHTML(opendialog1.filename));					

1:
2:
3:
4:

function GetTitle(HTML: String): String;
begin
  Result := Copy(HTML, Pos('<title>', HTML) + 7, Pos('</title>', HTML) - Pos('<title>', HTML) - 7);
end;					

1:
2:
3:
4:
5:
6:

if (*<item rdf:about="*">* iswm %xrel_temp) { set %xrel_i 1 }
  if (%xrel_i == 1) && (*<link>*</link>* iswm %xrel_temp) { set %xrel_a $replace($gettok($gettok(%xrel_temp,2,62),1,60),&,&) }
  if (%xrel_i == 1) && (*<title>*</title>* iswm %xrel_temp) { set %xrel_b $gettok($gettok(%xrel_temp,2,62),1,60) }
  if (*</item>* iswm %xrel_temp) {
    unset %xrel_i | sockclose xrel 
    if ($remove(%xrel_b,$chr(32)) != %rel) { set %rel $remove(%xrel_b,$chr(32)) | amsg 9[output]11 %xrel_b 15*14 $+(,%xrel_a,) | unset %xrel* }					

1:
2:
3:
4:

function GetTitle(HTML: String): String; 
begin 
  Result := Copy(HTML, Pos('<title>', HTML) + 7, Pos('</title>', HTML) - Pos('<title>', HTML) - 7); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure ExtractStrings(sEing: String;Tags: array of String;sAusg: TStrings);
var z,i,a,x : Integer;
begin
  x := 0;
  a := 0;
  i := 1;
  for z := 1 to Length(sEing) do
    begin
    if sEing[z] = Tags[x][i] then
      inc(i)
      else
        i := 1;
    if i = Length(Tags[x])+1 then
      if a = 0 then
        begin
        inc(x);//umschalten auf End-Tag
        a := z+1;
        end
        else
          begin
          dec(x);//umschalten auf Start-Tag
          sAusg.Add(Copy(sEing,a,z-a-Length(Tags[x])));
          a := 0;
          end;
    end;
end;					

1:

  ExtractStrings(Memo1.Text,['<title>','</title>'],Memo2.Lines);