Mostrar Resultado com parametros

Ola Amigos, ontem eu fiz um pergunta sobre mostrar resultados, eu consigui fazer, mas eu preciso com parametros, estou escrecendo o exemplo que eu fiz, mas aparece erro de Tipos.

procedure TFrmRelRoteiro.ppFooterBand1BeforePrint(Sender: TObject);
var
Q: TQuery;
I,F: String;
begin
Q := TQuery.Create(Application);
I := edtINI.Text;
F := edtFIM.Text;
try
Q.DatabaseName := ´JORNAL´;
with Q.SQL do
begin
Add(´ SELECT COUNT(A.JORNAL)´);
Add(´ FROM ROTEIRO R INNER JOIN ASSINANT A´);
Add(´ ON ROTASSI = CODASSIN´);
Add(´ WHERE ROTMOTO = :INI AND ROTMOTO = :FIM AND A.jornal = ´OESP´ AND A.perassin = ´SEG A SEG´ ´);
Add(´ GROUP BY JORNAL ´);
end;
try
Q.Params.ParamByName(´INI´).AsString:=I;
Q.Params.ParamByName(´FIM´).AsString:=F;
Q.Open;
ppLabel6.Caption := Q.Fields[0].AsString;
finally
Q.Close;
end;
finally
Q.Free;
end;
end;

Obrigado