replace string with spaces?

[direktor]

Uwe there is no error. Just doesn't work like it's suppose to. It can't replace text with spaces, only can replace the first word matched, anything after space is not replaced - as a result it replaces wrong string that begins with the same word but text after first space is different. I'm using Delphi 6, but I have Delphi XE8 also installed and can be used. Thanks.