Capturar dado da linha no CxGrid

procedure TfrmCadSqlCliente.btnProcessarClick(Sender: TObject);
var
   i                     : integer;
   status             : String;
   cadastro_id    : integer;
 
begin
   cadastro_id    := 0;
   status         := '';
   i              := 0;  

    //Variavel Recebe o N° da linha selecionada
i:= cxGrid1DBTableView1.DataController.RecNo-1;
 
//Variaveis recebem o valor das colunas da linha selecionada
    status := cxGrid1DBTableView1.ViewData.Records[i].Values[cxGrid1DBTableView1status.Index];
    cadastro_id  := cxGrid1DBTableView1.ViewData.Records[i].Values[cxGrid1DBTableView1cadastro_id.Index];

end;