delphi 获取设置输入法win7 win10

Imes方式dephi7，win7 以下代码正常，win10是空白获取不成功。

procedure TForm1.FormCreate(Sender: TObject);
begin
self.ListBox1.Items.AddStrings( screen.Imes );
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if self.ListBox1.Items.Count>0 then
begin
    self.Edit1.ImeName:= self.ListBox1.Items.Strings[ self.ListBox1.itemindex ];
end;

• delphi7编译环境

win7：获得1个，中文(简体) - 搜狗拼音输入法

win10：空白没有获取成功。

• delphi11.3编译环境

win7:操作系统：

Chinese (Simplified) - US Keyboard
Chinese (Simplified) - US Keyboard
US

win10操作系统：

Chinese (Simplified) - US Keyboard
US