Zum einen würde ich "ReadLn" anstelle von "Read" nehmen. Dann müsste dir doch klar sein, dass die HTML-Syntax so aussieht
Quelltext
1:
| <title>Ein Titel</title> |
Wenn du aber so rangehst:
Quelltext
1: 2: 3:
| Read(fileHTML, Ch); if Ch = 'Titel' then ... |
dann setzt du voraus, dass die gelesene Zeile exakt so aussieht:
Quelltext
Du müsstest also prüfen, ob
in der gelesenen Zeile die korrekte HTML-Syntax vorkommt, beispielsweise
Quelltext
1: 2:
| if(pos('<title>',lowercase(Ch)) > 0) then ... |
Wenn das der Fall ist, dann suchst du das Gegenstück "</title>" und kopierst den Text, der sich dazwischen befindet. - Das wäre eine Variante.
Dann gäbe es noch den zweiten Weg über den TWebBrowser, bzw. nur über das "IWebBrowser"-Interface. Dort hast du Zugriff auf das Dokument und könntest den Titel ebenfalls auslesen.
Aber ehrlicherweise muss ich zugeben, dass ich mich damit noch nicht beschäftigt habe. Wie das genau geht, sollte dir dann wohl besser ein anderer erklären.