Aus einem Datumsstring den Wochentag ermitteln

// Wochentag als Zahl von 1 - 7, wobei 1 der Sonntag ist: 
Label1->Caption = DayOfWeek(TDateTime("12.12.2002"));

// Wochentag als Name: 
Label2->Caption = FormatDateTime("dddd",TDateTime("12.12.2002"));