procedure TFrm_main.MenuItemOptionsLanguageENClick(Sender: TObject);
begin
SetDefaultLang('en');
MenuItemOptionsLanguageEN.Checked := True;
MenuItemOptionsLanguageNL.Checked := False;
//GetLocaleFormatSettings($409, DefaultFormatSettings);
end;
procedure TFrm_main.MenuItemOptionsLanguageNLClick(Sender: TObject);
begin
SetDefaultLang('nl');
MenuItemOptionsLanguageEN.Checked := False;
MenuItemOptionsLanguageNL.Checked := True;
//GetLocaleFormatSettings($413, DefaultFormatSettings);
end;