case RadioGroup1.ItemIndex of
0: t:='ВАся';
1: t:='Петя';
2: t:='САша';
3: t:='Коля';
end;