Title: How to switch the keyboard layout for the application
procedure TForm1.Button1Click(Sender: TObject);
var
LangIdentifier: String;
begin
LangIdentifier := '00000408'; //'0000408' is the Language Identifier for Greek
LoadKeyboardLayout(PChar(LangIdentifier), KLF_ACTIVATE);
end;