[Assistant]

этот кусок нужно тоже внести в TRY секцию (думаю что так)

Код:

If IdIcmpClient1.ReplyStatus.FromIpAddress <> IdIcmpClient1.Host Then
Begin
  IdIcmpClient1.Free;
  Close;
  Exit;
End;

If IdIcmpClient1.ReplyStatus.FromIpAddress = IdIcmpClient1.Host Then
Begin
  IdIcmpClient1.Free;
  Image1.Show;
end;

и в except добавить:

Код:

IdIcmpClient1.Free;