//---------------------------------------------------------------------------
#include 
//---------------------------------------------------------------------------
  TFormatSettings fSettings = TFormatSettings::Create(LOCALE_SYSTEM_DEFAULT);
  fSettings.DateSeparator = '-';
  fSettings.ShortDateFormat = "yyyy/mm/dd";
  fSettings.TimeSeparator = ':';
  fSettings.LongTimeFormat = "hh:mm:ss";
   
  TDateTime Data;
  Data = StrToDateTime("2015-05-30 11:30:00",  fSettings);  
  Data = StrToDate("2015-05-30", fSettings);               // Godzina zostanie wyzerowana
  Data = StrToTime("12:00:00",  fSettings);                // Data zostanie wyzerowana - 30.12.1899
//---------------------------------------------------------------------------