Hola gdlrinfo.
Me quedé pensando que quizá te resulte mejor cotejar con el código fuente, así que te lo adjunto.
Es la versión para Delphi 7, así que no olvides reemplazar en la unidad
uCopyAll todas las ocurrencias de
PAnsiChar por
PWideChar (Search->Replace).
Saludos
