1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TMainForm.Tastaturwahl(Sender: TObject);
begin
  case Spracheinstellung of
    1: Tastaturlayout_aendern(Sender,'00000809'); // Englisch
    2: Tastaturlayout_aendern(Sender,'0000040C'); // Französisch
    3: Tastaturlayout_aendern(Sender,'00000407'); // latein = Deutsch
    4: Tastaturlayout_aendern(Sender,'00000410'); // Itaienisch
    5: Tastaturlayout_aendern(Sender,'00000C0A'); // spanisch
    6: Tastaturlayout_aendern(Sender,'00000419'); // Russisch
    7: Tastaturlayout_aendern(Sender,'00000405'); // Tschechisch
    8: Tastaturlayout_aendern(Sender,'0000040E'); // Ungarisch
    9: Tastaturlayout_aendern(Sender,'00000424'); // Slowenisch
      end; { of Spracheinstellung }
end;

//********************************************************************************

Procedure TMainForm.Tastaturlayout_aendern(Sender: TObject; LangIdentifier:String);

begin
  LoadKeyboardLayout(PChar(LangIdentifier), KLF_ACTIVATE);
end;