[Gribok]

IdIcmpClient1.Host:='Твой Ип'//Берем строчку X из memo1 и вставляем её в HOST
IdIcmpClient1.Ping; //Пингуем

-----------------------------------------------------------------------

if IdIcmpClient1.ReplyStatus.ReplyStatusType=rsEcho
then
ListBox1.Items.Add(Memo1.Lines.Strings[x]);
end;