Как получить информацию о локальных настройках системы?

Code:

........

function TForm1.GetLocaleInformation(Flag: Integer): String;

var

pcLCA:    Array[0..20] of Char;

begin

if( GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,Flag,pcLCA,19) <= 0 ) then begin

   pcLCA[0] := #0;

end;

Result := pcLCA;

end;

........

Code:

........

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE));

end;

........