Fórum Erro Socket com o Indy 10 #420398

var
   ConsInteg: String;
begin
  IdTCPClientConecta.Host := Sistema.SCPCIntegradoHost;
  IdTCPClientConecta.Port := StrToInt(Sistema.SCPCIntegradoPorta);
  IdTCPClientConecta.Connect;
  IdTCPClientConecta.WriteLn(sSolicitaConsultaSCPCIntegrada);
  if (IdTCPClientConecta.ReadLnTimedout = False) then
    ConsInteg := IdTCPClientConecta.ReadLn;
end;