procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  buffer: array [0..6] of Char;
  CodePage : DWORD;
  cs : TCharsetInfo;
  charset : TFontCharset;
begin

// Find the TFontCharset for Romania...

  for i := 0 to Languages.Count - 1 do
    if Languages.Ext [i] = 'ROM' then
    begin
      GetLocaleInfo(Languages.LocaleID [i], LOCALE_IDEFAULTANSICODEPAGE, buffer, SizeOf(buffer));
      CodePage := StrToIntDef(Buffer, GetACP);
      Win32Check (TranslateCharsetInfo (CodePage, cs, TCI_SRCCODEPAGE));
      charset := cs.ciCharset;

      ShowMessage (Format ('Use TFontCharset=%d for Romania', [charset]))
    end
end;