Kleiner Terminkalender

[M-O-D]

Hallo,

es liegt tatsächlich am Datumsformat. Sobald ich das hier versuche:

Delphi-Quellcode:

if aktMonth <> copy(DateToStr(Kalender.Date),4,2) then begin
            //Anzeigen der Tage im aktuellen Monat
          d   := 1;
          m   := strToInt(copy(dateToStr(Kalender.Date),4,2));//Hier krachts zum ersten mal
          y   := strToInt(copy(dateToStr(Kalender.Date),7,4));

          lstFreeDays.Clear;
          lstUsedDays.Clear;

             while tryencodeDate(y,m,d, datum) do begin
               lstFD.Add(DateToStr(Datum));
               d   := d+1;
          end;

          lstFreeDays.Items.Assign(lstFD);
       end;

Ich müsste also irgendwie das aktuelle Datumsformat von Windows ermitteln, dann mit dem benötigtem Format vergleichen und bei Bedarf in die Richtige Form bringen. Weiß jemand wie das funktionieren könnte?
Mir würde schon reichen das Windows datumsformat heraus zu finden.. eine Funktion die das dann in das benötigte Format umwandelt würde ich mir schon selber zusammen basteln(falls es da noch nix gibt )

Danke schonmal