怎样获取windows中的输入法列表？

procedure TForm1.FormCreate(Sender: TObject);
begin
   combobox1.style:=csdropDownlist;
   combobox1.Items:=screen.imes;
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if combobox1.Text <>'' then
   begin
    edit1.ImeName :=combobox1.text;
    edit1.SetFocus ;
   end;
end;
--------------