[[enecumene]]

quizas algo así:

Código Delphi [-]
var
Mes: string;
  begin
    Mes := DateToStr(MonthOf(Now));
   Query1.SQL.Text := ' select * from whatever where dia between :dia_inicio and :dia_fin';
   Query1.Parameters.ParamByName('dia_inicio').Value := Concat(Edit1.Text,'/',Mes,'/',Año);
   Query1.Parameters.ParamByName('dia_fin').Value := Concat(Edit2.Text,'/',Mes,'/',Año);
  Query1.Open
end;

lo hice al vuelo no lo he probado pero es una idea.

Saludos.