Fórum Variavel:= DM.ClientDataSet.FieldByName(´CAMPO´).AsString #320900

Olá estou com dificuldade em fazer retornar o valor.

no banco funciona cento
select (max(CODIGO)) as MaxCod from PRODUTOS where TP_COD=´S´

//////
procedure TFrmCadProdutos.IncCodSequencial;
var
MaxCodS: String;
NovoCodS: Integer;
begin
DMCadastros.cdsProdutos.Close;
DMCadastros.cdsProdutos.CommandText:= ´select max(CODIGO) as MaxCodigo from PRODUTOS where TP_COD=´´S´´´;
DMCadastros.cdsProdutos.Open;

MaxCodS:= DMCadastros.cdsProdutos.FieldByName(´MaxCodigo´).AsString;
DMCadastros.cdsProdutos.Close;

NovoCodS:= StrToInt(MaxCodS) + 1;
edCodigo.Text:= IntToStr(NovoCodS);
end;
/////

mas esta dando o erro

cdsProdutos: Field ´CODIGO´ not found.