function Sprache: string; 
var 
  ID: word; 
  p: Pchar; 
begin 
  getmem(p, 256); 
  ID := GetSystemDefaultLangID; 
  VerLanguageName(ID, p, 256); 
  result := p; 
  freemem(p); 
end; 
 
// Beispielaufruf 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Showmessage(Sprache); 
end;