[Lelik]

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

Код:

unit Unit3;

interface

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

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

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.RadioGroup1click(Sender: TObject);
begin
case RadioGroup1.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;

end.