Pesquisa entre datas!!!

Estou tentando fazer uma pesquisa entre datas, aqui esta a rotina!

procedure TMan_Status.SpeedButton1Click(Sender: TObject);
var
Inicio,Final:string;

begin

If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.Date := DateTimePicker1.Date;
end
Else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);

with DataModule1.Q_Pedido do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM Pedido WHERE PedData >= :pInicial and PedData<= :pFinal´);
ParamByName(´pInicial´).AsDateTime := StrToDate(Inicio);
ParamByName(´pFinal´).AsDateTime := StrToDate(Final);
Prepare;
Open;
end;

end;

end;

Esta dando o seguinte erro!
[Error] Status_Man.pas(75): Undeclared identifier: ´ParamByName´

Oq esta errado?