Erro em VarArrayOf

Ola,
Estou lendo o livro Delphi6 & Kylix Curso Completo, e na pagina 204 tem o codigo abaixo, mas qdo vou compilar da erro em VarArrayOf.
Alguem poderia me dizer o que ha de errado
Luciano

procedure TFormCadastraPedidos.BotaoCadastrarClick(Sender: TObject);
var
i, posicao, codultimoitem : integer;
begin
if stringgridpedido.RowCount =6 then exit;
posicao:=Pos(´ ´,dblookupcomboboxcliente.Text);
dados.TblClientes.Locate(´nome´,VarArrayOf([copy(DBLookupComboBoxCliente.Text,1,Posicao-1)]),[]);
dados.TblPedidos.FieldByName(´data´).AsDateTime :=date;
dados.TblPedidos.FieldByName(´valortotal´).AsFloat :=0.0;
dados.TblPedidos.Post ;
for i:=1 to stringgridpedido.RowCount -6 do
begin
dados.TblItens.Last ;
codultimoitem:=dados.TblItens.fieldbyname(´codigoitem´).AsInteger;
dados.TblItens.Append;
dados.TblItens.FieldByName(´codigoitem´).AsInteger :=codultimoitem+1;
dados.TblProdutos.Locate(´nome´,vararrayof([stringgridpedido.Cells[0,i]]),[]);
dados.TblItens.FieldByName(´produto´).AsString :=dados.TblProdutos.fieldbyname(´codigoproduto´).AsString ;
dados.TblItens.FieldByName(´pedido´).AsString :=dados.TblPedidos.fieldbyname(´codigopedido´).AsString ;
dados.TblItens.FieldByName(´quantidade´).AsString :=stringgridpedido.Cells[1,i];
dados.TblItens.Post ;
dados.TblPedidos.Edit ;
dados.TblPedidos.FieldByName(´valortotal´).AsFloat :=
dados.TblPedidos.fieldbyname(´valortotal´).AsFloat +
dados.TblProdutos.FieldByName (´preco´).AsFloat *
strtofloat(stringgridpedido.Cells [1,i]);
dados.TblPedidos.Post ;
end;
stringgridpedido.RowCount :=6;
for i:=1 to 5 do
begin
stringgridpedido.Cells [0,i]:=´´;
stringgridpedido.Cells [1,i]:=´´;
end;