Проверить соединение с сокетом

[Aleksandr]

Соеденяюсь с сокетом с помощью IdTCPClient1. У меня в обоих случаях есть связь или нет выполняется тот код где есть подключение.Что я делаю не так?

MainForm.IdTCPClient1.Host :=MainForm.labelIP1.Caption;
MainForm.IdTCPClient1.Port := StrToInt(MainForm.LabelPort1.caption);
 try
    MainForm.IdTCPClient1.Connect(5000);
 except
 end;

 if not MainForm.IdTCPClient1.Connected then
begin
//Если нет соединения
       exit;
    repeat

//Здесь выполняется код если есть подключение

  until not MainForm.IdTCPClient1.Connected;

[Slym]

except
end;

ну нельзя так!
MainForm.IdTCPClient1.Connected - это фикция, не отражающая реальность

MainForm.IdTCPClient1.Host :=MainForm.labelIP1.Caption;
MainForm.IdTCPClient1.Port := StrToInt(MainForm.LabelPort1.caption);
try
   MainForm.IdTCPClient1.Connect(5000);
  while not Terminated do
  begin
  //Здесь выполняется код если есть подключение
  end;
except
  //Если нет соединения  
end;

ошибка при MainForm.IdTCPClient1.readXXX - вот реальное состояние и при этом конектед может быть тру