[Yurk@]

Замени на этот код и поменяй местами RadioGroup (на 1 - Цвет, на 2 тип фигуры):

Код:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
    Image1: TImage;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    RadioGroup2: TRadioGroup;
procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
case RadioGroup2.ItemIndex of
0:Image1.Canvas.Ellipse (0,100,Image1.ClientWidth,Image1.ClientHeight);
1:Image1.Canvas.Polygon([Point(0,0),Point(210,210),Point(210,0)]);
2:Image1.Canvas.Polygon([Point(0,0),Point(210,210),Point(0,210)]);
end;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0 : Image1.Canvas.Brush.Color:=clBlue;
1 : Image1.Canvas.Brush.Color:=clYellow;
end;
end;

end.