Выполнить GET запрос

Есть проект базы данных. Нужно выполнить GET запрос по API телеграмм бота. Как этот запрос можно осуществить по нажатию на определенной кнопке? Информация (текст) для запроса может браться из разных источников, например из текстбокса/комбобокса (в данном случае это не так важно). Так как запрос может быть длинным одним лишь GET запросом обойтись будет сложно. Возможно в будущем потребуется выполнить и POST запрос.
Что хотелось бы получить:
Процедура, которая запускается по нажатию кнопки. Процедура получает часть необходимой информации из текстбокса. Ссылка на АПИ нужного запроса можно найти на сайте телеграма в разделе ботов.
Я пытаюсь это сделать самостоятельно, но пока безрезультатно.    

Пока у меня есть следующий код:

procedure getTelegram(what: string);
var
    url, token, id, getHttp: string;

begin
    token:='ЗДЕСЬ_ТОКЕН_БОТА';
    id:='ЗДЕСЬ_ИД_ЧАТА';
    url:='https://api.telegram.org/bot' + token + '/sendMessage?chat_id=' + id + '&text=' + what;
    HTTPGet(url);
end;
procedure makeGet;
begin
    getTelegram('Zdes_budet_tekst');
end;

Соответственно процедура makeGet вешается на событие клика кнопки. В свою очередь аргумент what будет конструироваться из элементов формы через SQL запросы/ручной ввод в текстбокс.