Delphi Помогите спарсить

Извините что прошу так много

мне нужно



вот смотрите на скрине на кнопке (извините еще раз что прошу готовое )

 

Code:

uses ..., MSHTML;
...
var
Doc:IHTMLDocument2;
S:string;
begin
Doc:= WebBrowser1.Document as IHTMLDocument2;
s := doc.body.innerHTML;
delete(s, 1, pos('<title>', s)+length('<title>')-1);
Edit1.Text := copy(s, 1, pos('</title>', s)-1);

 

а как всё это в коде самой кнопке прописать или где там вообще

 

включи хоть немного смекалку... в противном случае тебе сюда --> Предложения работы, услуг

 

ладно завтро на нормальную голову сам наверное сделаю

 

Там таких и так хватает