输入法问题(50分)

如何在程序中控制输入法的切换，比如点击“中文ABC”就切换到相应输入法，谢谢！

procedure TForm1.Button1Click(Sender: TObject);
var
IMEName: array [0..9] of char;
begin
if GetKeyboardLayoutName(@(IMEName[0])) then
showmessage('IME'+ StrPas(PChar(@(IMEName[0]))));
end;
这个获取相应的输入法的代码
LoadKeyboardLayout('00000804', KLF_ACTIVATE);
这个是设置当前输入法