التحكم في الإعدادات الإقليمية Regional Settings

[bassem_43]

السلام عليكم
حاولت التعديل بهده الطريقة لكن لبم ينجح الامر بقية الاعدادات على حالها

PHP كود :

var
FS: TFormatSettings ;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Ruby Graphite');
  Application.UpdateFormatSettings := False;
   FS.DecimalSeparator := '.'; //رمز الفاصلة
  FS.CurrencyString := 'Dinar';//رمز العملة
  FS.CurrencyFormat := 3;
  FS.CurrencyDecimals := 2;
  FS.ThousandSeparator := ' ';
  Application.CreateForm(TForm1, Form1);
  
  Application.CreateForm(TAboutBox, AboutBox);
  Application.Run;
end.