Fórum Esse relatório não quer sair .. Preciso de Ajuda!!!! #172671

Estou tentando fazer uma pesquisa no meu banco de datas de forma que eu busque todas as pessoa em um intervalo de datas, o campo que quero procurar é datanascimento com o ano mesmo (20/01/1985) e estou usando o seguinte codigo.

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

begin

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

with form_principal.tb_servidor do
begin
Close;
form_principal.Query1.SQL.Clear;
form_principal.Query1.SQL.Add(´SELECT * FROM servidor WHERE datanascimento >= :pInicial and datanascimento<= :pFinal´);
form_principal.Query1.ParamByName(´inicial´).AsDateTime := StrToDate(Inicio);
form_principal.Query1.ParamByName(´final´).AsDateTime := StrToDate(Final);
form_principal.Query1.Prepare;
form_principal.Query1.Open;
form_rel_busca.QuickRep1.Preview;
end;

end;

e ele me retorna o seguinte erro:
query1: parameter ´inicial´ not found.

Preciso entregar esse programa até segunda-feira 04/08/2003.

Se alguem puder me ajuda ficarei extremamente agradecido :cry: