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;