你知道如何判断系统的语言吗？(30分)

var
nLang : integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ConfigLanguage(GetACP);
end;

procedure TForm1.ConfigLanguage(LID: integer);
begin
  nLang := LID;
  if nLang=936 then
  begin
    Form1.Font.Charset := GB2312_CHARSET;
    Form1.Font.Name := '宋体';
    Form1.Font.Size := 9;
    Application.Title := '定时关机';    
    Label5.Caption := '现在时间:';
    Label1.Caption := '定时时间:';
    Label7.Caption := '目标时间:';
    Label2.Caption := '小时';
    Label3.Caption := '分';
    Label4.Caption := '秒';
  end
  else if nLang=950 then
  begin
    Form1.Font.Charset := CHINESEBIG5_CHARSET;
    Form1.Font.Name := '灿?砰';
    Form1.Font.Size := 9;
    Application.Title := '﹚?闽诀';
    Label5.Caption := '瞷??丁:';
    Label1.Caption := '﹚??丁:';
    Label7.Caption := 'ヘ夹?丁:';
    Label2.Caption := '??';
    Label3.Caption := 'だ';
    Label4.Caption := '?';
  end
  else
  begin
    Form1.Font.Charset := ANSI_CHARSET;
    Form1.Font.Name := 'Arial';
    Form1.Font.Size := 9;
    Application.Title := 'AutoShutdown';
    Label5.Caption := 'Curr. Time';
    Label1.Caption := 'Delay Time';
    Label7.Caption := 'Dest. Time';
    Label2.Caption := 'Hour';
    Label3.Caption := 'Min.';
    Label4.Caption := 'Sec.';
  end;
end;