Retornar os valores do RADIO GRUP

[Lúcio Dowglas 0]

BOA TARDE... ALGUM PARCEIRO PODE MI AJUDAR NESSE PROBLEMINHA...

ESTOU TENTANDO TRAZER OS VALORES DO RADIO GRUPO QUE ESTÃO NO MEU BANCO DE DADOS... ESTOU USANDO ESSE CODIGO PARA ENVIAR...

case RDG_ESTCIVIL.ItemIndex of
0:DM_DADOS.Tbl_CDS_Funcionarioest_civil.AsString :='SOLTEIRO (A)';
1:DM_DADOS.Tbl_CDS_Funcionarioest_civil.AsString :='CASADO (A)';
2:DM_DADOS.Tbl_CDS_Funcionarioest_civil.AsString :='VIÚVO (A)';
3:DM_DADOS.Tbl_CDS_Funcionarioest_civil.AsString :='UNIÃO ESTAVEL(A)';
end;

 

 

E PARA RETORNAR OS VALORES PARA O FORME ESTOU USANDO ESTE...

 

IF DM_DADOS.Tbl_CDS_Funcionariostatos.AsString = ' SOLTEIRO (A)' THEN
BEGIN
RDG_ESTCIVIL.ItemIndex := 0;
END;
IF DM_DADOS.Tbl_CDS_Funcionariostatos.AsString = 'CASADO (A)' THEN
BEGIN
RDG_ESTCIVIL.ItemIndex := 1;
END;

IF DM_DADOS.Tbl_CDS_Funcionariostatos.AsString = 'VIÚVO (A)' THEN
BEGIN
RDG_ESTCIVIL.ItemIndex := 2;
END;

IF DM_DADOS.Tbl_CDS_Funcionariostatos.AsString = 'UNIÃO ESTAVEL(A)' THEN
BEGIN
RDG_ESTCIVIL.ItemIndex := 3;
END;

 

MAS NAO DAR CERTO...??

OBRIGADO