var 
  s: array [0..63] of char; 
begin 
  
 GetKeyboardLayoutName(s); 
 Form1.Caption := s;

end;