Fórum Duvida em SQL Firebird.. #341003

estou fazendo um sistema de agenda para inserir em meu sistema..
que deva listar lembretes do dia, semana, mes e ano..

os do dia, mes e ano ja consegui matar..

gostaria de uma ajudinha pra saber como pego numa consulta os dias apartir de segunda feira ate domingo?

o meu codigo para pegar o do dia eh:

procedure TFrmAgenda.ShowTodday;
var
ADia: String;
begin
try
ADia := QuotedStr(FormatDateTime(´yyyy-MM-dd´,Now));
with IBAgenda do
begin
Close;
SQL.Clear;
SQL.Add(´select * from AGENDA_LEMBRETES where DATA_FINAL >=´ + ADia + ´;´);
Open;
while not Eof do
begin
with ListDia.Items.Add do
begin
ID_Lembrete.Add(FieldByName(´ID_AGENDA´).AsString);
Caption := FieldByName(´MENSAGEM´).AsString;
SubItems.Add(FieldByName(´DATA_INICIAL´).AsString);
SubItems.Add(FieldByName(´DATA_FINAL´).AsString);
Next;
end;
end;
end;
except

end;
end;

mes:
procedure TFrmAgenda.showMonth;
var
AMes,Q: String;
begin
try
AMes := (FormatDateTime(´MM´,Now));
with IBAgenda do
begin
Close;
SQL.Clear;
Q := ´select id_agenda,mensagem,data_inicial,extract(month from DATA_FINAL) as mes,DATA_FINAL from AGENDA_LEMBRETES´ +
´ where extract(month from DATA_FINAL)=´ + AMes;
SQL.Add(Q);
Open;
while not Eof do
begin
with ListMes.Items.Add do
begin
ID_Lembrete.Add(FieldByName(´ID_AGENDA´).AsString);
Caption := FieldByName(´MENSAGEM´).AsString;
SubItems.Add(FieldByName(´DATA_INICIAL´).AsString);
SubItems.Add(FieldByName(´DATA_FINAL´).AsString);
Next;
end;
end;
end;
except

end;
end;

ano:
procedure TFrmAgenda.showYear;
var
AYear,Q: String;
begin
try
AYear := (FormatDateTime(´yyyy´,Now));
with IBAgenda do
begin
Close;
SQL.Clear;
Q := ´select id_agenda,mensagem,data_inicial,extract(year from DATA_FINAL) as Ano,DATA_FINAL from AGENDA_LEMBRETES´ +
´ where extract(year from DATA_FINAL)=´ + AYear;
SQL.Add(Q);
Open;
while not Eof do
begin
with ListAno.Items.Add do
begin
ID_Lembrete.Add(FieldByName(´ID_AGENDA´).AsString);
Caption := FieldByName(´MENSAGEM´).AsString;
SubItems.Add(FieldByName(´DATA_INICIAL´).AsString);
SubItems.Add(FieldByName(´DATA_FINAL´).AsString);
Next;
end;
end;
end;
except

end;
end;

so postei eles caso alguem precise de algo similar ;)

agradeço desde ja qm poder me auxiliar..