Чтение содержимого docx, xlsx на Delphi 7

Необходимо на Delphi 7 написать процедуры вида

function GetWORDInfo(FileName : string; Stream : TMemoryStream) : boolean;

function GetEXCELInfo(FileName : string; Stream : TMemoryStream) : boolean;

для чтения содержимого файлов .docx (текст файла) и .xlsx (текст на всех страницах, если их несколько в файле) по имени FileName в Stream : TMemoryStream. Если считать не удалось, то результат False. Если удалось - True.

Как известно, эти форматы содержат в zip-архиве файл XML, вот из него и нужно зачитывать текст. Код должен работать в Delphi 7, быть надежным и безопасным, не должен содержать утечки ресурсов.