[marcoszorrilla]

Programación a nivel del mar. Aquí tienes un ejemplo muy simple:

  Function Dias(dFecha:TDateTime):String;
  var
  Adias:Array[1..7] of String;
  begin
  Adias[1]:='Domingo';
  Adias[2]:='Lunes';
  Adias[3]:='Martes';
  Adias[4]:='Miercoles';
  Adias[5]:='Jueves';
  Adias[6]:='Viernes';
  Adias[7]:='Sabado';
  
  Result:=Adias[DayOfWeek(dfecha)];
  end;
 
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  ShowMessage(Dias(now));
  end;

Un Saludo.