Filtro entre duas datas ( o q tem errado)

procedure Tfrmrelpadrao2.SpeedButton1Click(Sender: TObject);
var
inicio,final:string;
begin
If Datafinal.Date < Datainicial.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
Datafinal.Date := Datainicial.Date;
end
Else
begin
Inicio := DateToStr(Datainicial.Date);
Final := DateToStr(Datafinal.Date);
frmRelcombustivel.relcombustivel.Close;
frmRelcombustivel.relcombustivel.SQL.Clear;
frmRelcombustivel.relcombustivel.SQL.Text := ´select * from combustivel WHERE dataabastecimento >=:pInicial and dataabastecimento <=:pFinal ORDER BY chave_combustivel´;
frmRelcombustivel.relcombustivel.Parameters.ParamByName(´pinicial´). := StrToDate(Inicio);
frmRelcombustivel.relcombustivel.Parameters.ParamByName(´pfinal´) := StrToDate(Final);
frmRelcombustivel.relcombustivel.Prepared;
frmRelcombustivel.relcombustivel.Open;
end;
end;

_______________________________________________________
O problema ta no parametro pois nao consigo que ele fique assim:
Relcombustivel.relcombustivel.Parameters.ParamByName(´pfinal´).[b:67e62b417d][color=red:67e62b417d]asstring[/color:67e62b417d][/b:67e62b417d] := StrToDate(Final);

este codigo fica em um form de chamada de um relatorio onde tenho de filtrar entre duas datas alguem sabe como posso fazer , lembrando que a adoquery esta no qreport e nao no form de chamada.


Valeu


Neomid :twisted: