Usa questa funzione:

function DayOfWeek ( Date : TDateTime ) : Integer;

vedi la pagina di DelphiBasics per i valori tornati: http://www.delphibasics.co.uk/RTL.asp?Name=DayOfWeek

Ciao
FSL