Проблема с GDI...

[VintProg]

Вот код:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

CQuad = record
   x,y, w,h : dword;
   color    : dword;
   Isspecial : boolean;
  end;

var
  Form2: TForm2;
  Quads : array[0..11] of CQuad;
  Bmp : TBitmap;
  X_m, Y_m : integer;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
  Form2.Color := Form1.Shape4.Brush.Color;
end;

procedure TForm2.FormPaint(Sender: TObject);
begin
 form2.Canvas.Brush.Color := clred;
 Quads[0].x := 0;
 Quads[0].y := 0;
 Quads[0].w := 100;
 Quads[0].h := 100;
 form2.Canvas.Rectangle(Quads[0].x,Quads[0].y,Quads[0].w,Quads[0].h);
 form2.Canvas.Draw(X_m,Y_m, Bmp);
// form2.Canvas.Refresh;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile(ExtractFilePath(Application.ExeName)+'Arrow');
  Bmp.Transparent := true;
end;

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Y_m := Y;
 X_m := X;
end;

end.

Блин спрайт не передвигается на координаты, в чем проблема???

[ZuBy]

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Y_m := Y;
 X_m := X;
 Repaint;
end;