//---------------------------------------------------------------------------
#include 
//---------------------------------------------------------------------------
TFormatSettings fSettings = TFormatSettings::Create(LOCALE_SYSTEM_DEFAULT);
 
Edit1->Text = TDateTime::CurrentDateTime().FormatString("'Aktualna data, format krótki: '" + fSettings.ShortDateFormat);
// Wynik: Aktualna data, format krótki: 25.11.2016
 
Edit2->Text = TDateTime::CurrentDateTime().FormatString("'Aktualna data, format długi: '" + fSettings.LongDateFormat);
// Wynik: Aktualna data, format długi: poniedziałek, 7 listopad 2016
 
Edit3->Text = TDateTime::CurrentDateTime().FormatString("'Aktualny czas, format krótki: '" + fSettings.ShortTimeFormat);
// Wynik: Aktualny czas, format krótki: 23:56
 
Edit4->Text = TDateTime::CurrentDateTime().FormatString("'Aktualny czas, format długi: '" + fSettings.LongTimeFormat);
// Wynik: Aktualny czas, format długi: 23:56:56
 
// Modyfikacja ustawień systemowych
fSettings.DateSeparator = '-';
fSettings.ShortDateFormat = "yyyy/mm/dd";
UnicodeString DataTxt = DateToStr(TDateTime::CurrentDateTime(),  fSettings);
// Wynik: 2016-11-25
//---------------------------------------------------------------------------