Изоражение выходит за пределы панели

[romanzi]

Есть изображение, которое можно двигать по панели.
Но оно может вылетить за пределы этой самой панели.
Написал процедуру, которая не должна это допустить.
Но она работает на половину - в нижний и правый угол изображение свободно проходит.
Что я сделал не так?

procedure TForm1.IsNearWall;
var
i: integer;
begin
    for i := 1 to iterator do
      begin
        if parts_player[i].Top < 0 then
          begin
              parts_player[i].Top := 0;
          end;

        if parts_player[i].Left < 0 then
          begin
              parts_player[i].Left := 0;
          end;

           if parts_player[i].Top > Panel2.Width then
          begin
              parts_player[i].Top := Panel2.Width;
          end;

           if parts_player[i].Left > Panel2.Height then
          begin
              parts_player[i].Left := Panel2.Height;
          end;
      end;

Спасибо за помощь.
Писал на скорость.по этому мог что-то пропустить.

[phomm]

if parts_player[i].Top + parts_player[i].Height > Panel2.Height then
          begin
              parts_player[i].Top := Panel2.Height - parts_player[i].Height;
          end;

           if parts_player[i].Left + parts_player[i].Width > Panel2.Width then
          begin
              parts_player[i].Left := Panel2.Width - parts_player[i].Width;
          end;

Путаете ширину с высотой и не делаете учёт что для правой и нижней стороны при технике ориентироваться по top left - надо учитывать ещё width height самой картинки.

П.С. а вообще, работать с интерфейсными элементами как с данными - очень неправильно, интерфейс - он только для отображения моделируемого процесса, а все расчёты должны производиться независимо.
Теория http://www.gunsmoker.ru/2010/08/9897.html