Prueba a guardar en un campo aparte el día de la semana.
Para sacarlo puedes usar al go como esto:
Código Delphi
[-]
function TForm1.DiaDeLaSemana(Fecha: TDate; Completo:Boolean=False): string;
var
DiasSemana:array[1..7] of string;
begin
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;