Помогите пожалуйста!!! дали такое вот задание:
Создать приложение позволяющие выбирать из компонента Radiogroup2
тип рисуемой фигуры (эллипс,верхний треугольник,нижний треугольник),а из компонента RadioGroup1 цвет закраски (Синий,желтый) и рисовать в компоненте Image выбранную фигуру.
А у меня все наоборот сперва выбирается цвет а потом фигура и рисуется

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm3 = class(TForm)
RadioGroup2: TRadioGroup;
RadioGroup1: TRadioGroup;
Image1: TImage;
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.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 TForm3.RadioGroup1Click(Sender: TObject);

begin
case RadioGroup1.ItemIndex of
0 : Image1.Canvas.Brush.Color:=clBlue;
1 : Image1.Canvas.Brush.Color:=clYellow;
end;
end;

end.