Systemdatum im einstellten Format anzeigen bzw. umwandeln(Tipp drucken)

---

var
  dt: TDateTime;
  tmpShortDateFormat: string;
begin
  tmpShortDateFormat := ShortDateFormat;           // aktuelles Format merken
  ShortDateFormat    := 'dd.mm.yyyy';              // eigenes Format zuweisen
  DateSeparator      := '.';                       // der Separator muss extra zugewiesen werden
  // vorhandenes Datum als String zuweisen, verwendet ShartDateFormat
  dt                 := StrToDate('01.01.2003');

  ShortDateFormat    := tmpShortDateFormat;        // eingestelltes Format zuweisen
  ShowMessage(FormatDateTime(ShortDateFormat(dt)); // Datum mit dem eingestellten Format ausgeben
end;