set time format

delphi

procedure SetSysDateFormat;                                                     // Set time format 
begin
  //  Set up WINDOWS Format of system short date 
  SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd');
  application.UpdateFormatSettings := false;
  //  Set the date time format used by the program itself 
  LongDateFormat := 'yyyy-MM-dd';
  ShortDateFormat := 'yyyy-MM-dd';
  LongTimeFormat := 'hh:nn:ss';
  ShortTimeFormat := 'hh:nn:ss';
  DateSeparator := '-';
  TimeSeparator := ':';
end;