[ecfisa]

Hola Vales.

A ver si es algo como esto...

Código Delphi [-]
...
var
  i: Integer;
  T: TDate;
begin
  T:= Now;
  for i:= DayOf(Now) to  DaysInMonth(Now) do
  begin
    case DayOfTheWeek(T) of
      1: ListBox1.Items.Add('Lunes '+IntToSTr(Dayof(T)));
      2: ListBox1.Items.Add('Martes '+IntToSTr(Dayof(T)));
      3: ListBox1.Items.Add('Miercoles '+IntToSTr(Dayof(T)));
      4: ListBox1.Items.Add('Jueves '+IntToSTr(Dayof(T)));
    end;
    T:= IncDay(T);
  end;
...

Un saludo.