Ich glaube ich sollte länger nachdenken, aber manchmal kommt man beim (be)schreiben erst auf die Idee.
Habe es jetzt so umgesetzt:
Delphi-Quellcode:
uses
DateUtils
...
var
Datum : TDate;
begin
Datum := EncodeDateTime(09, 04, 20, 0, 0, 0, 0); // Montag - 20/04/2009
Label_Tag_MO.Caption := FormatDateTime('ddd', Datum);
Label_Tag_DI.Caption := FormatDateTime('ddd', Datum + 1);
Label_Tag_MI.Caption := FormatDateTime('ddd', Datum + 2);
Label_Tag_DO.Caption := FormatDateTime('ddd', Datum + 3);
Label_Tag_FR.Caption := FormatDateTime('ddd', Datum + 4);
Label_Tag_SA.Caption := FormatDateTime('ddd', Datum + 5);
Label_Tag_SO.Caption := FormatDateTime('ddd', Datum + 6);
...