Функция Delphi сравнивает содержимое двух TStream?

Мне нужно сравнить, есть ли два потомка TStream ] имеют такое же содержание . Единственный интересный результат для меня - это логическое значение Да / Нет.

Я собираюсь закодировать простой цикл , проверяющий байт за байтом содержимое потоков.

Но мне любопытно , чтобы узнать, существует ли уже существующая функция. Я не нашел ни одной библиотеки внутри DelphiXE или JCL / JVCL.

Конечно, два потока имеют одинаковый размер!