смена раскладки клавиатуры

[D_E_N]

Здравствуйте! как сделать чтоб при смене раскладки клавы менялось название копки?

[Kotofff]

самый простой способ :
кидаем на форму Timer, устанавливаем его свойство interval ,например, 100 (что равно 0,1 сек) и пишем обработчик :

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Layout: array [0.. KL_NAMELENGTH] of char;
begin
  GetKeyboardLayoutName(Layout);
  if Layout = '00000409' then
    Button1.caption:='Английская раскладка'
    else if Layout = '00000419' then
      Button1.caption:='Русская раскладка'
        else Button1.caption:='Какая-то другая раскладка';
end;

[D_E_N]

СПАСИБО!!!