اگه دلتون خواست خودتون هم یه تلاشی بکنید.
در این سایت چندین بار در مورد مدیریت خطا صحبت شده:
procedure TForm1.Button1Click(Sender: TObject);

var

  i: Byte;

begin

  try

    for i := 0 to ListBox1.Items.Count - 1 do

    begin

      with IdTCPClient1 do

      begin

        if Connected then

          Disconnect;

        Host := trim(ListBox1.Items[i]);

        Port := 80;

        Connect;

        try

          IOHandler.WriteLn('test');

        finally

          Disconnect;

        end;

      end;

    end;

  except

    ShowMessage('در ارتباط مشکلی به وجود آمده');

  end;

end;