рисовать линию разными стилями и стирать изображение (есть код программы) Делфи 7

[программирование]

добрый день, уважаемые программисты. помогите,пожалуйста, дописать программу на языке Делфи 7.

вот задание, которое уже сделано:
1)рисует квадрат и эллипс;
2)меняет цвет этих фигур (квадрата и эллипса).
программа полностью работает, но её нужно дописать:

вот задание, которое нужно сделать:
1)сделать возможность рисовать линию (разного стиля используя класс TComboBox);
2)сделать возможность стирать изображение.

вот код:

unit Unit44;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.Menus,
  Vcl.ExtCtrls;
type
  TForm44 = class(TForm)
    ComboBoxEx1: TComboBoxEx;
    Button1: TButton;
    ColorDialog1: TColorDialog;
    Edit1: TEdit;
    Image1: TImage;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form44: TForm44;
implementation
{$R *.dfm}
procedure TForm44.Button1Click(Sender: TObject);
begin
  ColorDialog1.Execute;
  //Цвет кисти для фона берем из дилога
  Form44.Canvas.Brush.Color:=ColorDialog1.Color;
  //Перерисовываем окно
  Invalidate
end;
procedure TForm44.Button2Click(Sender: TObject);
var x,y:integer;
    btn:tbutton;
begin
 image1.canvas.Ellipse(10,10,90,50);
 {btn:=tbutton.Create(self);
  btn.Parent :=self;
  btn.Left:=x;
  btn.Top:=y;
  btn.Width:=  btn.Width+50;
  btn.Caption:=format('Button at %d, %d',[x,y])}
end;
procedure TForm44.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 btn:tbutton;
 btn1:tbutton;
begin
  canvas.Rectangle(x-20,y-20,x+20,y+20);
  image1.Canvas.Ellipse(10,10,90,50);
  {//btn:=tbutton.Create(self);
  btn.Parent :=self;
  btn.Left:=x; 
  btn.Top:=y;
  btn.Width:=  btn.Width+50;
  btn.Caption:=format('Button at %d, %d',[x,y])}
end;
end.

заранее огромное спасибо всем за помощь!

[Stilet]

сделать возможность рисовать линию (разного стиля используя класс TComboBox);

В чем тут сложность?

сделать возможность стирать изображение.

Используя Fillrect заливай изобрадение цветом фона это и будет стиралка.

[программирование]

Stilet, но

Используя Fillrect заливай изображение цветом фона это и будет стиралка

- это в крайнем случаи. просто нужно сделать стирание как в Paint

[Stilet]

Резинкой? Тот же Fillrect но не на всю канву.