Дин. создание Shape

[Sanakan]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x1,y1,x2,y2,tmp,count:integer;
  Shp:TSHape;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
tmp:=0;
count:=count+1;
Shp:=TShape.Create(self);
Shp.Parent:=Form1;
Shp.Brush.Color:=clGreen;
Shp.Name:='Shp'+IntToStr(count);
if (x1<x2) and (y1<y2) then
  begin
  Shp.Top:=y1;
  Shp.Left:=x1;
  Shp.Width:=x2-x1;
  Shp.Height:=y2-y1;
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if tmp=1 then
  begin
    x2:=x;
    y2:=y;
    Refresh;
    Image1.Canvas.Rectangle(x1,y1,x,y);
  end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
tmp:=1;
x1:=X;
y1:=Y;
end;

end.

Создаю дин. шейпы по выделенной области на имадже. Проблема при прорисовки выделенной области на канве при новых x2 , y2. Старые шейпы остаються да и идет мерцания имаджа. Как это исправить? Или как это лучше сделать ? Заранее Спасибо!

[Скандербег]

TImage для других целей предназначен. Рисовать на форме или PaintBox, а Refresh убрать - не нужен. Мерцания не будет.