procedure TForm1.Button1Click(Sender: TObject);
var
; ADate: TDateTime;
; days: array[1..7] of string;
begin
; days[1] := 'Sunday';
; days[2] := 'Monday';
; days[3] := 'Tuesday';
; days[4] := 'Wednesday';
; days[5] := 'Thursday';
; days[6] := 'Friday';
; days[7] := 'Saturday';
; ShowMessage('Today is a ' + days[DayOfWeek(Date)];
end;
