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

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
car.Left:=x;
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);
 IL1.Draw(B1.Canvas,X1, Y1,0,True);
 Y1:= Y1 + 2;
 P1.Invalidate;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:Word;
 
begin
//
 Randomize;
 label1.Caption:=floattostr(k);
 
 B1.Canvas.Draw(0,0,B2);
 
 If X_-16 <= 32 then X_:= 32+16;
 if X_+16 >= 32*16 then X_:= 32*16+16;
 
 //Спрайты
 for i:=0 to 50 do begin
 if  BL_[i].S then  begin //Спрайт существует - двигать
                     IL1.Draw(B1.Canvas, BL_[i].X*32+32, BL_[i].Y,BL_[i].i,True);
                     BL_[i].Y:= BL_[i].Y + 6; //Приращение движения
 
                     //Время жизни закончилось
                     if BL_[i].Y > 18*32 then
                      BL_[i].S:=False;
 
 
 // проверка столкновения 
 
                      if (BL_[i].Y+32)>(16*32) then  begin
   if (BL_[i].X+1<=X_-16) and (X_-16<=(BL_[i].X+32-1))
    then
        begin
        K:=K+10;
        BL_[i].S:=False;
        end;
     end;
 
 if (BL_[i].Y+32)>(16*32) then
 begin
   if (BL_[i].X+1<=(X_-16+32)) and ((X_-16+32)<=(BL_[i].X+32-1))
       then
           begin
           K:=K+10;
           BL_[i].S:=False;
           end;
 end ;
 end
 
  else
                          begin //Спрайта нет - создать
 
                           if Pause < 0 then begin
                           BL_[i].i:= Random(9)+4;
                           BL_[i].Y:= - 36;
                           BL_[i].X:= Random(16); //Задание позиции по горизонтали
                           BL_[i].S:= True; //Спрайт создан.
                           Pause:= 10;
                                             end;
                          end;
 
 
                  end;
 
                     IL1.Draw(B1.Canvas,X_-16, 16*32 ,3,True);
 Pause:= Pause - 1;
 P1.Invalidate;
end;