[[Ohcan]]

Otra opción:

Código Delphi [-]
function TFunciones.DiaDeLaSemana(Fecha: TDate; Completo:Boolean=False): string;
var
  DiasSemana:array[1..7] of string;
begin
  //Calculamos la letra del día de la semana
  if Completo then
    begin
      DiasSemana[1] := 'DOMINGO'; DiasSemana[2] := 'LUNES';
      DiasSemana[3] := 'MARTES';  DiasSemana[4] := 'MIERCOLES';
      DiasSemana[5] := 'JUEVES';  DiasSemana[6] := 'VIERNES';
      DiasSemana[7] := 'SABADO';
    end
  else
    begin
      DiasSemana[1] := 'D'; DiasSemana[2] := 'L'; DiasSemana[3] := 'M';
      DiasSemana[4] := 'X'; DiasSemana[5] := 'J'; DiasSemana[6] := 'V';
      DiasSemana[7] := 'S';
    end;
  Result := DiasSemana[DayOfWeek(Fecha)];
end;