Резиновая линия до курсора

[Vova777]

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  xa:= x;
  ya:= y;
  Image2.Width:= Image1.Width;
  Image2.Height:= Image1.Height;
  Image2.BringToFront;
  Image2.Visible:= True;

end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image2.Picture:= nil;
  Image2.Canvas.MoveTo(xa, ya);
  Image2.Canvas.LineTo(x, y);
end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image2.Picture:= nil;
  Image2.SendToBack;
  Image2.Visible:= False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.DoubleBuffered:= True;
  Image2.Canvas.Pen.Color:= clRed;
end;

В общем, тут проблема. Когда рисуется линия у канвы TImage2 белый фон, а как сделать прозрачный, а то он закрывает основной рисунок.