fix for the stupid bug in Free Pascal

git-svn-id: http://svn.miranda-ng.org/main/trunk@3784 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c