procedure TForm1.Timer1Timer(Sender: TObject);
var
 Layout: array [0.. KL_NAMELENGTH] of char;
begin
 GetKeyboardLayoutName(Layout);
 if Layout = '00000409' then
 label1.caption:='en'
 else
 label1.caption:='ru';
end;