LangID:= GetUserDefaultLangID;
hMemLocale:= GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE or GMEM_ZEROINIT, 4);
Win32Check(hMemLocale <> 0);
try
  pMemLocale:= GlobalLock(hMemLocale);
  Win32Check(pMemLocale <> nil);
  try
    Move(LangID, pMemLocale^, 4);
  finally
    GlobalUnLock(hMemLocale);
  end;
  Clipboard.SetAsHandle(CF_LOCALE, hMemLocale);
except
  GlobalFree(hMemLocale);
end;