https://bugs.winehq.org/show_bug.cgi?id=43838
--- Comment #2 from Omega Software development@winomega.com --- Created attachment 59391 --> https://bugs.winehq.org/attachment.cgi?id=59391 testcase source code (written in Delphi7)
Note: if you don't have Delphi7, you can also build this using Lazarus (http://www.lazarus-ide.org/)