[lega4]

Уфф, ну и жестоко все это было, но, оказывается, все просто))))
• У меня не получилось сделать вывод трасерта в переменную так, чтобы основное приложение могло узнать, когда считывать. Поэтому сделал вывод трасерта в произвольный файл - основная прога все равно не узнает, когда смотреть, но для моей цели это не критично. Да и, в конце концов, можно регулярно проверять папку на наличие файла.
• Не бейте меня сильно за, наверное, не лучшую реализацию вывода в файл
• Всегда меня просто добивает то, что люди юнит-то выложат, а вот пример использования - нет. И сиди, думай, как же его вызвать. Поэтому используется примерно так (Если добавлять tracert.pas к проекту)

Код:

with tracert.TTraceThread.Create(false) do
  begin
    FreeOnTerminate := True;
    FileName:='Здесь путь к файлу';
    DestinationAddress := 'Здесь айпи или хост, без протокола'; //Т.е. 'ya.ru' - верно, 'http://ya.ru' - нет.
    IterationCount := 6; //Здесь количество прыжков
    Resume;
  end;