Картинка которая двигается за курсором!

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
car.Left:=x;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 IL1.Draw(Form1.Canvas,X-16,Y-16,0,True);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ExtCtrls;
 
type
  TForm1 = class(TForm)
    IL1: TImageList;
    Timer1: TTimer;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  B1,B2:TBitmap;
  X_,Y_:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
X_:= X;
Y_:= Y;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.DoubleBuffered := true;//Âêëþ÷àåì äâîéíóþ áóôåðèçàöèþ ôîðìû
B1:=TBitmap.create;
B1.Width:=Form1.ClientWidth;
B1.Height:=Form1.ClientHeight;
B2:=TBitmap.create;
B2.Width:=Form1.ClientWidth;
B2.Height:=Form1.ClientHeight;
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
B1.Free;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 B1.Canvas.Draw(0,0,B2);
 IL1.Draw(B1.Canvas,X_-16,Y_-16,0,True);
 Form1.Invalidate;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.Draw(0,0,B1);
end;
 
end.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//
 B1.Canvas.Draw(0,0,B2);
 If X_-16 <= 0 then X_:= 16;
 if X_+16 >= B2.Width then X_:= B2.Width - 16;
 IL1.Draw(B1.Canvas,X_-16, B1.Height-32,0,True);
 Form1.Invalidate;
end;