begin
if RadioGroup1.ItemIndex=0 then
t:='ВАся';
if RadioGroup1.ItemIndex=1 then
t:='Петя';
if RadioGroup1.ItemIndex=2 then
t:='САша' ;
if RadioGroup1.ItemIndex=3 then
t:='Коля' ;
label1.Caption:=t;
end;