Unpasswording word files

Here's my delphi code, you might be able to convert it to a language you use and for Word also ...