Проверка подключения к Интернету в delphi

Question

Как, я сделал программу, которая загружает файлы на ftp-сервере, дело в том, что всякий раз, когда у меня нет доступа к Интернету, появляется ошибка, которая останавливает запуск программы и говорит, что я не подключен к Интернету.

Как заставить программу отображать это сообщение в окне showmessage, чтобы он не прекратил запуск программы?

Например:

If internetconnection then 
begin 

end else showmessage ('You are not connected to the internet') 

Answer 1

Пожалуйста, попробуйте код по этой ссылке

Ping

Также вы можете попробовать использовать свободные Internet Component Suite компоненты, что позволяет реализовать тестовое соединение ваш ftp-сервер.

EDIT:

Поскольку было установлено, что автор использует компонент (Инди) IdFTP для загрузки файлов на FTP-сервере, и мой первый ответ не был хорош я буду мужайтесь писать, как я думаю, что правильный код для проверки подключения к ftp-серверу:

with IdFTP1 do begin 
    Host := ..; 
    Port := ..; 
    Username := ..; 
    Password := ..; 
    if Connected then Disconnect; 
    try 
    Connect; 
    ShowMessage('FTP IS Connected') 
    except 
    ShowMessage('FTP IS NOT Connected'); 
    end; 
end;