2 кнопки (Button)
HTTPSend
Memo

unit Unit1; // Имя

interface // Интерфейс

uses // Использовать библиотеки
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sMemo, sButton, httpsend, ssl_openssl;

type // Типы
TForm1 = class(TForm)
sButton1: TsButton;
sMemo1: TsMemo;
sButton2: TsButton;
procedure sButton1Click(Sender: TObject);
procedure sButton2Click(Sender: TObject);
private // Приватная часть
{ Private declarations } // Приватная дикларация
public // Публичная часть
{ Public declarations } // Публичная дикларация
end; // Конец типов

var // Переменные
Form1: TForm1;
info : string; // Переменная info строковая

implementation

{$R *.dfm}

function Pars(T_, ForS, _T: string): string; // Функция Pars строки
var // Переменные
a, b: integer; // Интеграция переменных
begin // начало функции
Result := ''; // Результат ничему не равен
if (T_ = '') or (ForS = '') or (_T = '') then Exit; // Если пусто то на выход
a := Pos(T_, ForS); // Переменной а присвоено
if a = 0 then Exit // Если а равен 0 то выйти
else a := a + Length(T_); // Или по-другому а присвоено а + длинна T_

ForS := Copy(ForS, a, Length(ForS) - a + 1); // Скопировать
b := Pos(_T, ForS); //
if b > 0 then Result := Copy(ForS, 1, b - 1);
end; //конец функции

procedure TForm1.sButton1Click(Sender: TObject); // Процедура обработки нажатия на кнопку
var // Переменные
HTTP:THTTPSend; // Переменная HTTP есть THHTPSend
HTML:TStringList; // Переменная HTML есть строковый лист
begin // Начало
HTTP:=THTTPSend.Create; // Создать подключение
HTML:=TStringList.Create; //Создать строковый лист

if HTTP.HTTPMethod('GET','https://wf.mail.ru') then //GET-запрос на сайт wf.mail.ru
begin // начало
HTML.LoadFromStream(HTTP.Document); // Загрузка страницы
info :=Pars('"theme_token":"',Utf8ToAnsi(html.Text),'","'); // 'Откуда' и 'До куда'
sMemo1.Lines.Add(info); //Добавить строку в листе "спаршенное"
end; // Конец if
end; // Конец продедуры

procedure TForm1.sButton2Click(Sender: TObject); //Процедура обработки нажатия на кнопку
begin //Начало
sMemo1.Clear; //Очистить
end; //Конец процедуры

end. //Конец программы