[AlexSku]

Судя по справке, TWideStrings - это объект (в смысле класс), а объекты передаются как указатели, т.е. VAR не нужен. Кроме того, зачем его дублировать и передавать ещё и в Result'е? Это можно убрать (т.е. оформить как procedure(s: TWideStrings);