O que tem de Errado?

Estou fazendo uma consulta entre datas coloco as datas que quero em dois edits, quando mando buscar
ele não consulta exatamente o periodo que desejo q aparece no dbgrid, ele consulta apenas os dias.
por exemplo:

Se peço um periodo entre 01/10/2006 a 10/10/2006 e na tabela tiverem registros de dias que começam com 01 e 10 ele mostra no dbgrid, como 01/08/2006 02/08/2006,
mas não me mostra o periodo real que quero.

Alguem sabe me dizer o que tem de errado?

procedure Tfrmcracha.BitBtn6Click(Sender: TObject);
var
Inicio : string;
Final : string;
soma : extended;
begin
Soma := 0;


Inicio := edit7.Text ;
Final := edit8.text;



adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := ´SELECT naocobrar, totais, data FROM cracha WHERE data >= :pinicio and data <= :pfinal order by data ASC´;
adoquery1.Parameters.ParamByName(´pinicio´).Value := StrToDate(Inicio);
adoquery1.Parameters.ParamByName(´pfinal´).Value := StrToDate(final);
adoquery1.Open;

if not adoquery1.isempty then begin
adoquery1.first;
while not adoquery1.eof do begin
Soma := Soma + adoquery1.fieldbyname(´totais´).asfloat;
adoquery1.next;
edit4.Text := floattostr(soma);
end;
end;
soma := 0;
if not adoquery1.isempty then begin
adoquery1.first;
while not adoquery1.eof do begin
Soma := Soma + adoquery1.fieldbyname(´naocobrar´).asfloat;
adoquery1.next;
edit3.Text := floattostr(soma);
end;
end;
end;
end.