[SantaHim]

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

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

ответы с кодом скидывайте на мыло, если не трудно: SantaHim@gmail.com

мой код:

Код:

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;

Админ: Пользуемся тегами для оформления кода!