procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0 : BitBtn1.Font.Color := clBlue;
1 : BitBtn1.Font.Color := clRed;
2 : BitBtn1.Font.Color := clYellow;
3 : BitBtn1.Font.Color := clNavy;
4 : BitBtn1.Font.Color := clGreen;
end;
end;