Erro que não entendo

Coloquei em um speedbutton o seguinte bloco de comandos:

If Application.MessageBox(´Confirma a Inclusão do Curso?´,´Cadastro de Cursos´,MB_IconQUESTION + MB_YESNO) = IDYES then
Begin
If Not FrmAluno.tblA_curso.Locate(´Descricao;Cod_Aluno´, VarArrayOf([DBCBOCurso.Text, FrmAluno.DBText1.Field.text]),[loCaseInsensitive])then
begin
FrmAluno.tblA_curso.Append;
FrmAluno.tblA_Curso.fieldByName(´Descricao´).asstring := DBCboCurso.text;
FrmAluno.tblA_Curso.fieldByName(´Cod_Aluno´).asstring := FrmAluno.DBText1.Field.Text;
FrmAluno.tblA_Curso.fieldByName(´Valor´).asCurrency := tblCursosVALOR.Value;
FrmAluno.tblA_curso.Post;
FrmAluno.tblA_Curso.Filter := ´Cod_Aluno = ´´´ + FrmAluno.DBText1.Field .Text + ´´´´;
FrmAluno.tblA_Curso.Filtered:=True;
FrmAluno.CalcParcela;
FrmAluno.SpeedButton12.Enabled := True;
MessageDLg(´Curso incluso com sucesso!´,mtInformation,[mbOK],0);
end
else
MessageDLg(´Curso já cadastrado para este aluno!´,mtInformation,[mbOK],0);
end;




e estou obtendo a seguinte mensagem de erro:
[Error] fInc_Curso.pas(62): Undeclared identifier: ´VarArrayOf´