сообщение "проверьте подключение к интернету"

[ubun]

Как сделать так что если нету подключение к интернету то выходило сообщение ошибки "Проверьте подключение к интернету"
как это сделать в этом фрагменте программы:
M.Body.Text:=Edit2.Text;
M.From.Text := Edit1.Text; //отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := Edit3.Text; //Получатель
M.Subject := Edit4.Text; //Тема письма

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := Edit5.Text;
IdSMTP1.Username := Edit6.Text;
IdSMTP1.Password := Edit7.Text; // пароль
IdSMTP1.Connect();

{Вот в этом место программа дает сбой, если нету подключения}

//if IdSMTP1.connected=false then
//Application.MessageBox(PChar('Ошибк а при подключении к SMTP-серверу.'), 'Ошибка', MB_OK);


if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;
end;

[MyLastHit]

С головой дружишь? Тегом кода выдели. Может даже сам ошибку какую нибудь и увидишь. А пока - код не читабелен.

{Вот в этом место программа дает сбой, если нету подключения}

Исходя из того, что я понял - тебе нужно в блок кода try .. except обернуть?

[ubun]

Пожалуйста поконкретнее не могли бы написать
вот это:
try .. except

[New man]

try
M.Body.Text:=Edit2.Text;
M.From.Text := Edit1.Text; //отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := Edit3.Text; //Получатель
M.Subject := Edit4.Text; //Тема письма

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := Edit5.Text;
IdSMTP1.Username := Edit6.Text;
IdSMTP1.Password := Edit7.Text; // пароль
IdSMTP1.Connect();




if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;
end;
except
   Application.MessageBox(PChar('Ошибк а при подключении к SMTP-серверу.'), 'Ошибка', MB_OK);
end;

[ubun]

не получается все равно программа вылетает

[MyLastHit]

Сырец прикрепи. Точно нельзя сказать, что у тебя там вылетает без исходника.

[ubun]

да у меня программка большая с посторонними библиотеками dspack и delphiX. У вас оно наверное не пройдет.

[MyLastHit]

напиши хотябы ошибку какую выдает компилятор, и номер строки. А лучше скрин

[New man]

Delphi обрабатывает все ошибки несмотря на
try .. except
Сначала компилируй, а потом запускай готовый exeшник

[MyLastHit]

Мдэ. Tools-Debugger Options-Language Exception и сними галку со Stop on Delphi Exception