Направи си един празен юнит, или отвори някой който НЯМА форма.
Най - отдолу, преди end. напиши следното:

initialization

  ShortDateFormat   := 'dd/mm/yyyy';

  LongdateFormat    := 'dd/mm/yyyy';

  DateSeparator     := '/';

  DecimalSeparator  := '.';

  ThousandSeparator := char(160);

  CurrencyString    := 'лв';

  CurrencyFormat    := 3;

  NegCurrFormat     := 8;

  CurrencyDecimals  := 2;

  ShortTimeFormat   := 'hh:mm';

  LongTimeFormat    := 'hh:mm:ss';

  Application.UpdateFormatSettings:=False;



или си постави каквито си искаш стойности за глобалните променливи