Hjælp til Canvas!!

½øjsa!
jeg har to små problemer som jeg håbede på i lige kunne fikse i et snuptag *GG* Tag lige et kig på det her:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Image2: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  stx,sty,oldx,oldy : integer;
  down : boolean;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Left := image1.Left +1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.BringToFront;
image2.SendToBack;
form1.DoubleBuffered := true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if down then with Canvas do
  begin
    Rectangle(stx,sty,oldx,oldy);
    Pen.Style := psdot;
    Pen.Mode := pmXor;
    pen.Width := 3;
    Pen.Color := clred;
    Brush.Style := bsclear;
    Rectangle(stx,sty,x,y);
    oldx := x;
    oldy := y;
  end;

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  down := true;
  stx := x;
  sty := y;
  oldx := x;
  oldy := y;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
down := false;
Canvas.Rectangle(stx,sty,oldx,oldy);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  if down then
    Canvas.Rectangle(stx,sty,oldx,oldy);
end;

end.

formen ser sådan ud:
//////////////////////////////////////////
//                                      //
//                                      //
//                                      //
//                                      // 
//  **********        **********      //
//  *        *        *        *      //
//  * image1 *        * image2 *      //
//  *        *        *        *      //
//  **********        **********      //
//                                      //
//////////////////////////////////////////

OK, så fik vi det  på plads. når man så starter programmet flytter image1 sig lige så stille ind over image2.... nu skal vi så lege at image1 & 2 er ikoner på skrivebordet og du gerne vil markere dem. fint nok: du trækker et rektangel udover dem, MEN.. Læg mærke til at når img1 kører over img2 samtidig med at du trækker rektanglet ned over dem vil rester af rktanglet ikke forsvinde...<<-- HVORDAN ER DET LIGE MAN FIXER DET???

Noget andet er at jeg vil gerne have at rektanglet ligger HELT øverst(også oven på image1 der bevæger sig)

Nogle der kan hjælpe??