Lazarus TextOut prints little square instead of characters

Question

I am programming in Lazarus at school. I wrote one program for chess table, but I have problem with printing these two charcters ♂ and ♀. I tried this code

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

but it does not work, it only prints little square instead of each of these characters. I am using Win XP SP3. Any tips?