Какой язык на данный момент на клавиатуре?

Code:

var

{©Drkb v.3}

Form1: TForm1;

LAYOUT: String;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

RA: Array[0..$FFF] of Char;

begin

GetKeyboardLayoutName(RA) ;

Layout := StrPas(RA);

if Layout = '00000419' then

showmessage(' CCCP ' )

else

if Layout = '00000409' then

   showmessage(' USA ' )

else

   showmessage(' X 3 ' ) ;

end;

Code:

function WhichLanguage:string;

var

ID:LangID;

Language: array [0..100] of char;

begin

ID:=GetSystemDefaultLangID;

VerLanguageName(ID,Language,100);

Result:=String(Language);

end;