Lazarus TextOut打印小方块而不是字符

Question

我在学校的拉撒路编程。我为国际象棋桌写了一个程序，但我打印这两个字符♂和have有问题。我试过这段代码

var s : string;
...
s := 'VKS' + SysToUTF8(#11#12) + 'SKVPPPPPPPPPPPPPPPPVKSKKSKV'; 

但它不起作用，它只打印小方块而不是每个字符。我使用的是Win XP SP3。有什么提示吗？