Delphi中怎样得到系统当前“输入法”名称？

var
scr:TScreen;
begin
Src := TScreen.Create(nil);
ShowMessage(Src.DefaultIme);
Src.Free;