[Страдалецъ]

Для RadioGroup можно сделать так:

Код:

for i := 0 to RadioGroup1.Items.Count - 1
do begin
   Sheet.Cells[i+1, 1] := RadioGroup1.Items.Strings[i];
   if RadioGroup1.ItemIndex = i
   then Sheet.Cells[i+1, 2] := 'Да'
   else Sheet.Cells[i+1, 2] := 'Нет';
   end;

По аналогии и с остальными компонентами можно поступить.