Lazarus FindWindow не работает, когда имя окна содержит неанглийскую строку

Question

a:=FindWindow(nil, PChar('你好，世界'));
if a <> 0 then ShowMessage('hello');

этот код не может найти окно с именем '你好，世界' в Lazarus, но работает в Delphi 7 и более поздних версиях Delphi