научите двигать кнопку!

[SantaHim]

помогите двигать кнопку. есть код, но условия перекрываются. как сделать так чтобы они не перекрывались?
кнопка двигается вниз и влево. нужно сделать так, чтобы она двигалась еще вверх и вправо.

пожалуйста помогите!
мой код:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   begin
          if (x>btn17.Left) and (x<(btn17.Left+btn17.Width)) and (y>btn17.top-5) then
       begin
         btn17.top:=btn17.top+1;
       end;
 
          if (y>btn17.Top)and (y<btn17.Top+btn17.Height) and (x>btn17.Left-5) then
        begin
          btn17.left:=btn17.left+1;
        end;
 
   end;
 
  begin
    if  (y>btn17.Top)and (y<btn17.Top+btn17.Height) and (x>btn17.Left+btn17.Width+5)
 
    then btn17.left:=btn17.left-1;
 
    if (x>btn17.Left) and (x<(btn17.Left+btn17.Width)) and (y>btn17.top+btn17.Height+5)
 
    then btn17.top:=btn17.top-1;
  end;
end;

суть: важно чтобы она двигалась именно в указанной процедуре. т.е. без нажатия на саму кнопку.

[revizor]

кнопка двигается вниз и влево. нужно сделать так, чтобы она двигалась еще вверх и вправо.

непонятно куда нужно двигать кнопку.

[NewLamer&Programer]

может все проще чем кажется?

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
btn17.Left:= x;
btn17.Top:= y;
end;

[SantaHim]

кнопка должна двигаться от мыши на 1 пиксел в ту сторону, в какую ее толкает мышь

[NewLamer&Programer]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Const a = 1; b = 10;
begin
if (x = btn.Left-a) and (y > btn.Top) and (y < (btn.Top + btn.Height))
then btn.Left:= btn.Left + b;
if (y = btn.Top-a) and (x > btn.Left) and (x < (btn.Left + btn.Width))
then btn.Top:= btn.Top + b;
if (x = btn.Left+btn.Width+a) and (y > btn.Top) and (y < (btn.Top + btn.Height))
then btn.Left:= btn.Left - b;
if (y = btn.Top+btn.Height+a) and (x > btn.Left) and (x < (btn.Left + btn.Width))
then btn.Top:= btn.Top - b;
end;

[evg_m]

это ваш код без исправлений только переформатирован для наглядности и компактности. В комментариях приведены наводящие вопросы для исправления.

 if (x>btn17.Left) and (x<(btn17.Left+btn17.Width)) and (y>btn17.top+btn17.Height+5) then btn17.top:=btn17.top-1; // мышка снизу и кнопка двигается вверх
 if (x>btn17.Left) and (x<(btn17.Left+btn17.Width)) and (y>btn17.top-5)              then btn17.top:=btn17.top+1; // а как будет что мышка сверху?

 if (y>btn17.Top)  and (y<btn17.Top+btn17.Height)   and (x>btn17.Left-5)             then btn17.left:=btn17.left+1; //мышка справа и кнопка двигается влево 
 if (y>btn17.Top)  and (y<btn17.Top+btn17.Height)   and (x>btn17.Left+btn17.Width+5) then btn17.left:=btn17.left-1; //а как будет что мышка слева?

if (x>left)   and (x<right)   and (y>top-D)  and (y<top)      then stepdown;
if (x>left)   and (x<right)   and (y>bottom) and (y<bottom+D) then stepup;
if (x>left-D) and (x<left)    and (y>top)    and (y<bottom)   then stepright;
if (x>right)  and (x<right+D) and (y>top)    and (y<bottom)   then stepleft;