ZERGeich

Ошибка у вас вылезает на строчке:

Memo1.Lines.Add('Ответ от '+
      IntToStr(LoByte(LoWord(pIpe^.Address)))+'.'+
      IntToStr(HiByte(LoWord(pIpe^.Address)))+'.'+
      IntToStr(LoByte(HiWord(pIpe^.Address)))+'.'+
      IntToStr(HiByte(HiWord(pIpe^.Address))));

А это недвусмысленно намекает, что айпишник у вас куда-то уплыл и внутре у ней чего-то другое лежит.