Delphi проверка работы сайта

Мне нужно проверить загружается ли сайт или нет, и если он не грузится то выдает сообщение об этом. Пробывал и на OnCreate и на таймере, просто не запускается форма! не выдает никаких ошибок а просто не показывает форму ((
вот мой код