Function DayOfWeek

Uses Unit SysUtils

A função DayOfWeek retorna o dia da semana da data passada como parâmetro.Ex.: Domingo(1), Segunda(2),etc.

Sintaxe da sua utilização:

DayOfWeek(Data);

Ex:

procedure TForm1.BitBtn12Click(Sender: TObject);begin
       ShowMessage(IntToStr(DayOfWeek(Date))); end;