Delphi 取得系統預設地區和語言

在 FormCreate 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
var
  DefaultLCID: Integer;
begin
  DefaultLCID := SysLocale.DefaultLCID;
  ShowMessage(Languages.NameFromLCID[IntToStr(DefaultLCID)]);
end;