Fórum pq dá erro? me ajudem #171391

Por que essa rotina resulta em erro?

procedure TFormControle.Button1Click(Sender: TObject);
begin
Case RadioGroup2.ItemIndex of
0: begin Dbgrid1.DataSource := DM.DataSource1;
DM.Query1.Filtered := False;
DM.Query1.Filter := ´Devolvido=´+QuotedStr(´Locado´);
DM.Query1.Filtered := true; end;
1: begin
DM.Query2.Active := false;
DM.Query2.SQL.Add(´SELECT Alunos.Nome, Locacao.DataLoc, Locacao.DataDevol, Locacao.Devolvido, Livros.Titulo FROM ALUNOS, LOCACAO , LIVROS WHERE Alunos.RM = Locacao.RM and Livros.Codigo = Locacao.Codigo and :Hoje > Locacao.DataDevol order by Livros.Titulo´);
DM.Query2.ParamByName(´Hoje´).AsDate := Date;
DM.Query2.Active := true;
Dbgrid1.DataSource := DM.DataSource2;
end;
end;
end;