[Дикарь]

А цвет по моему что то вроеде

Код:

Begin
if RadioGroup.ItemIndex=0 then 
Canvas.Brush.Color:=clBlue
else
Canvas.Brush.Color:=clYellow;
<Твой код>
end;
end.