Como detectar idioma del sistema y que funcione en todos windows?

[cocute]

me respondo a mi mismo, no se bien como funciona lo de $03FF pero funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LangID: DWORD;
 begin
  LangID := GetUserDefaultLangID;
  case Byte(LangID and $03FF) of
    LANG_SPANISH: Button1.Caption:='español';
    LANG_ENGLISH: Button1.Caption:='english';
  else
   Button1.Caption:='Otro idioma';
end;

end;