TDateTime Format

[Matze]

Ich hab's jetzt mal getestet, also so, wie du's im 1. Post hast, geht's bei mir:

Delphi-Quellcode:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
  datum : String;
  t,m,j : String;
  iJahr, iMonat, iTag : Word;
begin 
DecodeDate(DateTimePicker1.Date, iJahr, iMonat, iTag);

{Wochentag} 
case DayOfWeek(iTag) of 
  1: t := 'Sonntag';
  2: t := 'Montag';
  3: t := 'Dienstag';
  4: t := 'Mittwoch';
  5: t := 'Donnerstag';
  6: t := 'Freitag';
  7: t := 'Samstag';
end; {case DayOfWeek}

{Monat} 
case iMonat of 
   1: m := 'Januar';
   2: m := 'Februar';
   3: m := 'März';
   4: m := 'April';
   5: m := 'Mai';
   6: m := 'Juni';
   7: m := 'Juli';
   8: m := 'August';
   9: m := 'September';
  10: m := 'Oktober';
  11: m := 'November';
  12: m := 'Dezember';
end; {ende case iMonat}

j := IntToStr(iJahr); 

datum := t + ', ' + IntToStr(iTag) + '. ' + m  + ' ' + j;
Edit1.Text := datum;  
end;